有谁知道这段程序是用什么语言编的吗?
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 19:00:30
有谁知道这段程序是用什么语言编的吗?
/usr/bin/perl -i~use strict;use warnings; my %lastpos = (X => 10000,Y => 10000,Z => 10000,E => 10000,F => 10000);my %pos = (X => 0,Y => 0,Z => 0,E => 0,F => 0); my $mindist = 0.33; my $mindistz = 0.005; my $mindistsq = $mindist * $mindist; sub dist { my $sq = 0; for (qw/X Y Z E/) { $sq += ($pos{$_} - $lastpos{$_}) ** 2; } return $sq;} while () { if (m#\bG[01]\b#) { while (m#([XYZEF])(\d+(\.\d+)?)#gi) { $pos{uc $1} = $2; } if ( ( /X/ && /Y/ && (dist() >= $mindistsq) ) || (abs($pos{Z} - $lastpos{Z}) > $mindistz) || /X/ || /Y/) ) { print; %lastpos = %pos; } elsif (($pos{F} - $lastpos{F}) = 0) { printf "G1 F%s\n",$pos{F}; $lastpos{F} = $pos{F}; } } else { if (m#\bG92\b#) { while (m#([XYZEF])(\d+(\.\d+)?)#gi) { $lastpos{uc $1} = $2; } } print; }
/usr/bin/perl -i~use strict;use warnings; my %lastpos = (X => 10000,Y => 10000,Z => 10000,E => 10000,F => 10000);my %pos = (X => 0,Y => 0,Z => 0,E => 0,F => 0); my $mindist = 0.33; my $mindistz = 0.005; my $mindistsq = $mindist * $mindist; sub dist { my $sq = 0; for (qw/X Y Z E/) { $sq += ($pos{$_} - $lastpos{$_}) ** 2; } return $sq;} while () { if (m#\bG[01]\b#) { while (m#([XYZEF])(\d+(\.\d+)?)#gi) { $pos{uc $1} = $2; } if ( ( /X/ && /Y/ && (dist() >= $mindistsq) ) || (abs($pos{Z} - $lastpos{Z}) > $mindistz) || /X/ || /Y/) ) { print; %lastpos = %pos; } elsif (($pos{F} - $lastpos{F}) = 0) { printf "G1 F%s\n",$pos{F}; $lastpos{F} = $pos{F}; } } else { if (m#\bG92\b#) { while (m#([XYZEF])(\d+(\.\d+)?)#gi) { $lastpos{uc $1} = $2; } } print; }
Perl,可见http://www.perlchina.org/
再问: 你有perl编程经验吗?
再问: 你有perl编程经验吗?
有谁知道这段程序是用什么语言编的吗?
如何编数学算法小程序BASIC语言的编写软件有什么啊
谁知道这是什么语言的程序?
求用C语言编个程序 很简单的
用C语言怎么编一个求和的程序?
这段C语言的程序里的第2排的“flag”是什么意思?有什么作用呢?
在语言处理程序中,解释程序的功能是() A.解释执行高级语言程序 B.将汇编语言程序编译成目标程序 C.解释执行汇编语言
关于数控宏程序现在能编程的软件很多,也都很好用,那么宏程序还有什么用呢?有软件编不了的程序吗?宏程序的优势又在哪呢?还用
C语言初学者求助,一个程序设计题,大神看看我编的程序是否有错误.
如何将卡西欧4800中的这段程序用卡西欧5800的语言写出来呢,
C语言编一个计算e的值的程序
用R语言估计参数值 请帮忙解释下面这段R语言程序每句的含义,