西门子程式（SIEMENS program）.doc

西门子程式（SIEMENS program） A: R1=0, R2=-0.5, R4=TAN (10) * (70-R1) R5=2*R4+95.314 M3S1000G0Z50 X0Y35 G1F1000Z0 AAA: G2Z=-0.5+R1J-35TURN=1 R1=R1=R2 R3=R5/120 SCALE X=R3 Y=R3 IF R170.5 GOTO N1 GOTOB AAA N1 GOZ30 M30 Subject: answer: less than half circle, how to find the center of the circle Find a way Set three points for P1 (X1, Y1), P2 (X2, Y2), P3 (X3, Y3), and the center of a circle is P0 (X, Y) Using triangle circumcircle equation: (X-X1) ^2+ (Y-Y1), ^2= (X-X2), ^2+ (Y-Y2), ^2= (X-X3), ^2+ (Y-Y3), ^2 The following formulas are derived: A=x1 (y2-y3), +x2 (y3-y1), +x3 (y1-y2) B= (x1^2+y1^2-x2^2-y2^2) /2 C= (x1^2+y1^2-x3^2-y3^2) /2 D=b (y1-y3) -c (y1-y2) E=c (x1-x2) -b (x1-x3) Radius: r=SQRT ((d/a-x1) ^2+ (e/a-y1) ^2 Coordinate of the center of the circle: (d/a, e/a) Compile a simple program: R11=$AA_IM[X] R12=$AA_IM[Y] M0 R21=$AA_IM[X] R22=$AA_IM[Y] M0 R31=$AA_IM[X] R32=$AA_IM[Y] R1=R11* (R22-R32), +R21* (R32-R12), +R31* (R12-R22) IF R1==0 GOTO AAA R2= (POT (R11), +POT (R12), -POT (R21), -POT (R22)) /2 R3= (POT (R11), +POT (R12), -POT (R31), -POT (R32)) /2 R4=R1* (R12-R32) -R3* (R12-R22) R5=R3* (R11-R21) -R2* (R11-R31) R97=SQRT (POT (R4/R1-R11) +POT (R5/R1-R12)) R98=R4/R1 R99=R5/R1 AAA:M2 R1 is zero, so that 3.1, jump to the end of the program R97 is the radius, R98 is the X coordinate, and R99 is the Y coordinate The procedure was only hastily made, not perfected I have tried, very good, and very accurate!!!! The thread cutters I have used are about 4 teeth or so. I have done both external and internal thread. The milling cutter is divided into several kinds, common are: standard multiple tooth cutter, drill thread milling cutter, end milling thread Miller (front blade screw milling is that JEL boring thread (Miller), which can be directly in the milling cutter after drilling, thread), JEL Mini thread Miller (similar to the former, but the part structure is different, not bad), described above, different milling cutter, the procedures for writing are different. Stand