有谁知道这段程序是用什么语言编的吗?
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/11 15:39:07
有谁知道这段程序是用什么语言编的吗?
/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; }
![有谁知道这段程序是用什么语言编的吗?](/uploads/image/z/6097450-58-0.jpg?t=%E6%9C%89%E8%B0%81%E7%9F%A5%E9%81%93%E8%BF%99%E6%AE%B5%E7%A8%8B%E5%BA%8F%E6%98%AF%E7%94%A8%E4%BB%80%E4%B9%88%E8%AF%AD%E8%A8%80%E7%BC%96%E7%9A%84%E5%90%97%3F)
Perl,可见http://www.perlchina.org/
再问: 你有perl编程经验吗?
再问: 你有perl编程经验吗?
有谁知道这段程序是用什么语言编的吗?
如何编数学算法小程序BASIC语言的编写软件有什么啊
谁知道这是什么语言的程序?
求用C语言编个程序 很简单的
用C语言怎么编一个求和的程序?
这段C语言的程序里的第2排的“flag”是什么意思?有什么作用呢?
在语言处理程序中,解释程序的功能是() A.解释执行高级语言程序 B.将汇编语言程序编译成目标程序 C.解释执行汇编语言
关于数控宏程序现在能编程的软件很多,也都很好用,那么宏程序还有什么用呢?有软件编不了的程序吗?宏程序的优势又在哪呢?还用
C语言初学者求助,一个程序设计题,大神看看我编的程序是否有错误.
如何将卡西欧4800中的这段程序用卡西欧5800的语言写出来呢,
C语言编一个计算e的值的程序
用R语言估计参数值 请帮忙解释下面这段R语言程序每句的含义,