帮忙编写一个数控车宏程序,加工1/4椭圆,长半轴为30 ,短半轴为20 ；操作系统是西门子802s
问题描述：
帮忙编写一个数控车宏程序,加工1/4椭圆,长半轴为30 ,短半轴为20 ；操作系统是西门子802s
帮忙编写一个数控车宏程序：加工1/4椭圆,长半轴为30 ,短半轴为20 ；操作系统是西门子802s,最好把fanuc otd系统的也写出来,必须能实际加工出来的,不要复制一些没用的东西.
答
fuanc
O1001;主程序
G99G97;
M03S500T0101;
G0X42.Z2.;此步为起点
G65 P1234 A25 C20 U2 V1 F0.1 S700；A为长半轴,C为短半轴,U为粗车ap(mm),V为精车ap(角度）；
G0 X100.Z100.;
M05 T0100;
M30;
O1234;子程序
#5=#5043;
#4=#3;
WHILE[#4GE0] DO1;
#2=[[1-[#4*#4]/[#3*#3]]*[#1*#1]];
#2=SQRT[#2];
#2=#2-#1;
G0X[2*#4+0.5];
G1Z[#2+0.3]F0.15;
U1W1;
G0Z#5;
#4=#4-#21;
END1;
G0X0;
G1Z0.;
#5=360.;
WHILE[#5GE270] D02;
#2=#1*COS[#5];
#4=#3*SIN[#5];
#2=#2-#1;
#4=ABS[#4];
G1X[2*#4]Z#2F#9;
#5=#5-#22;
END2;
M99;