倾斜椭圆的编程

倾斜椭圆的编程

倾斜椭圆的编程以长半轴30,短半轴20,倾斜30度为例

#1=0

n1#2=cos[#1]*30

#3=sin[#1]*20

#4=atan[#3]/[#2]+30

#5=sqrt[#2*#2+#3*#3]

#6=cos[#4]*#5

#7=sin[#4]*#5

if[#1gt360]goto2

g1x#6y#7f100

#1=#1+1

goto1

n2m00

椭圆长半轴为30,短半轴为20,椭圆绕椭圆圆心旋转30度.椭圆加工到X直径为40止.

#1=30 椭圆长半轴

#2=20 椭圆短半轴

#3=COS[30]*26.19 #3为椭圆长轴起点26.19为椭圆圆心到椭圆Z方向起点距离

#4=20-TAN[30]*21.02 #4为椭圆短轴终点21.02为椭圆圆心到椭圆Z方向终点距离

#5=COS[30]*21.02

#6=SIN[30]*#4

#7=#5+#6 #7为椭圆长轴终点

WHILE[#3GE#7]DO1 判断椭圆长轴是否走到终点

#8=#2*SQRT[#1*#1-#3*#3]/#1 椭圆公式

#9=COS[30]*#8 #9为X轴的变量

#10=SIN[30]*#8+COS[30]*#3 #10为Z轴的变量

G01X[2*#9-#3] Z[#10-26.19] 直线插补

#3=#3-0.5 长轴步进0.5

END1

FANUC-0i 数控车抛物线宏程序数控2008-01-07 19:26:11 阅读113 评论0 字号:大中小订阅.

O1234

T1;

M3 S800;

GO X0 Z30;

G1 Z25 F0.1;

#2 =0.01;

#3 =0;

#4 =25;

N1 #1 =#3*#3+#4-25 IF[#1LE0] GOTO2;

IF[#1GT0] GOTO3; IF[#1LT0] GOTO4;

N2 U#2 F0.1;

#3 =#3+#2;

#3 =#3;

GOTO1;

N3 W-#2;

#4=#4-#2;

#4=#4;

GOTO1;