一例高水平的宏程序，求其数学原理

孤城领主领主

说明：机器上装了个四轴，尾座，及连接两者的连接板。在连接板上有一个能转动0度和90度的旋转气缸。四轴为A轴，旋转气缸为C轴。
( v; M% ?: p8 o5 |0 OO7015;
' A4 M$ ]7 `) RG91G28Z0.;
G40G80G49G69;
. Q' m3 J" K0 g( X0 EM06T21;
M19;（准确定位）
; D" j3 B/ \  x- b( k6 z; \M17;（探针打开）
M81;（C轴松开）
$ a0 M% b0 X# Y! ]" qM72;（四轴松开）
9 b& Z7 i7 ^4 y6 [$ }  ?G90 G0 G54.1 P10 A20. M82;（M82为C轴旋转至90度）
M71;（四轴锁紧）
M80;（C轴锁紧）
1 P$ l7 O% A7 L  ]( Z$ q#7441=#580-[#581-#7182];
8 z' ]& c2 _. v$ T/ k9 @2 o% j#7442=#581-[#580-#7181];
#7443=#7183;
G65 P7200 A20. S123 W125 X0. Y0. Z0.;(意思是坐标g54.1P23旋转20度,后得到的新坐标为G54.1P25)
. }) Q+ V( _$ p4 i" }. zG00 G90 G54.1 P26 Y-54.1;
5 ~, S6 R0 G2 W! u! Z3 q+ P2 jG00 G90 G54.1 P26 X-18.75;
......
* I7 {+ s( D  h* K......
M30;
9 W& j) Z* }% T% |1 i
O7200;
5 l% b! D6 m- G" ZG5.1 Q0;
IF[#2EQ2]GOTO200;
& C' w* k# q( K! d, t3 yN200;
#8=#580;（C轴旋转中心X）
#9=#581;（C轴旋转中心Y）
#10=#582;（A轴旋转中心Y）
#11=#583;（A轴旋转中心Z）
7 @" y0 M* Y. J4 YGOTO300;
0 \" ]* G/ Y+ V6 ]N300;
) C$ [* ?3 ^5 o4 Z. C#12=#0;(THERMAL X)
/ w' a# i* q6 ]" `& o3 u#13=#0;(THERMAL Y)
#14=#600;(THERMAL Z)(#600是Z 向探针的温度 补偿值，这个由探针确定，一般在0.01以内在本程式中为已知的)
' O& O" s9 w# ~! qIF[#19NE#23]GOTO1;
' m5 l$ t! k! h0 G' ?( T" h0 V#3000=91;
N1;
IF[#19GT100]GOTO2;
N2;
#19=#19-101;
# T/ ^3 I3 Q( O8 V#100=#19*20;
, ?$ n/ ?8 d; A4 |#101=[#[7001+#100]+#24]-#8;（X DISTANCE FROM ROT X）
9 H, }. j5 k" t7 x#102=[#[7002+#100]+#25]-#9;（Y DISTANCE FROM ROT Y）
: V1 m5 |% ?3 Z' ^: [#108=[#[7003+#100]+#26]-#11;（Z DISTANCE FROM ROT Z）
% m, v& t3 }$ h0 @* DN3;
#101=#101-#12;
# O4 F" h0 m" c1 H& G* U! M#102=#102-#13;
#108=#108-#14;
( ^# S2 G5 E: Y) y  [#103=ATAN[#102/#101]/[1];
#104=#102/SIN[#103]
#105=#103+#3;(NEW C ANGLE)
6 G' }  `1 Q" _5 G7 T8 X$ F#106=COS[#105]*#104;(NEW X)
0 A3 o* ?5 a6 R' I5 W8 u#107=SIN[#105]*#104;(NEW Y)
1 m# [9 c) l/ o, z- p3 |#120=#107+[#9-#10];
#109=ATAN[#108/#120]/[1];
( @" i. u9 D+ w3 D/ P3 F0 J#110=#108/SIN[#109];(RADIUS)
#111=#109+#1;(NEW A ANGLE)
: O+ t$ E  K  p- t#112=COS[#111]*#110;(NEW Y)
#113=SIN[#111]*#110;(NEW Z)
5 k/ c! b/ M) I5 N1 i- V, \9 ?+ |#114=#8+#106+#12;(X WCS POSSITION)
#115=#10+#112+#13;(Y WCS POSSITION)
9 d( B: j0 G8 o4 f7 V#116=#11+#113+#14;(Z WCS POSSITION)
) ]9 X; Q& w- R6 Z#117=#0;
0 W) V! c8 S. Y* y$ E  w- ]#118=#0.;
#119=#0.;
4 |! |" m) O7 [IF[#20EQ#0]GOTO60
) z; q& ^) N) ]5 IN60;
IF[#23EQ#0]GOTO20;
9 @: O2 v5 Y+ S- r2 d. NIF[#23GT100]GOTO10;
N10;
#23=#23-101;
#100=#23*20;
" w# Z% c6 {* \. ~  g5 a7 U#[7001+#100]=#114+#117
1 O5 R9 [8 c, \  N* s# n- F#[7002+#100]=#115+#118
* c( w- W* K& J" M- f# m#[7003+#100]=#116+#119
N20;
$ {4 d5 c& u% V1 i3 A0 ^M99;
哪位大侠能看出红色标记处的数学原理？

karlmayerdesign

看不懂 可不可以留下个脚印

duanyz

井号+数字就是一个变量吧？红色的就是一个运算+赋值

ame0624

这种宏程序要从头才能看懂，红色的就是三角函数的知识

_Lee

# J2 E2 z4 b1 Z# a1 H( e作为菜鸟，说下心中的一些疑惑。上面的很多参数都不全，例如#3、#19、#580、#7441这些具体是什么？我也做过类似的坐标转换，但是没涉及到机床的参数，原理应该差不多。第一个红的应该跟机床自身有关，第二个红的其实很好理解，原理就是三角函数而已。把这点移到另一点，新点在旧坐标系里的坐标值。

惠智网安

这叫高水平？

lukexc

看来落后了，看不懂了！

冷月梧桐

我可以说这程序很乱吗？？
3 ~: o9 V" f" j% A) k( l+ T/ y+ xG65 P7200 A20. S123 W125 X0. Y0. Z0
4 ^  R$ m. ~" g/ ~* ?
IF[#2EQ2]GOTO200;
N200;
3 t( H$ {1 f2 M- @. C8 @4 F/ w……
GOTO300;
. E/ Y. l. ]; f' BN300;
主程序没有传递B（#2）的值，这段IF根本就没用。而且这两段的跳转（目的段就在跳转的下面，无论有没有跳转都将执行这下面的程序）根本就意思，所以后面主题程序还没仔细看，兴趣就少了一大截

孤城领主领主

冷月梧桐 发表于 2013-11-5 18:42
我可以说这程序很乱吗？？
G65 P7200 A20. S123 W125 X0. Y0. Z0

9 u. {! y# }7 z是我自己故意删改，其实这些程序的跳转没有多大意思，我觉得最精妙的是它的数学转换，可惜我一直没有看懂它讲坐标做这样处理的数学根据是什么

孤城领主领主

karlmayerdesign 发表于 2013-11-5 08:38
3 \$ S8 z' }& w3 v4 h: I看不懂 可不可以留下个脚印

可以