Параметрическое программирование эллипса для фрезеровки на ЧПУ. (+ программа)

Программа позволяющая изготовить любой эллипс на станке с ЧПУ. Построение эллипса с помощью кнопок, карандаша и верёвки по заданным параметрам. Разлиновка циферблата часов. % O00007(ELLIPS) (X0Y0- PO CENTRU) (Z0- OT VERHA) #104=1(N INSTRUMENTA) T#104M06 G00G90G54Y0X0A0M08 G43H#104D#104Z50.S200M03F12. #101=100(DIAMETR TRUBY=DIAMETR ELLIPSA min) #102=-45(DIAMETR ELLIPSA ili -UGOL NAKLONA) #103=0(POVOROT) #105=2(SHAG PO OSI Y) #106=1(+1SNARUJI -1IZNUTRI) (***) G68R#103 IF[#102GE0]GOTO5 #102=#101/COS[-#102] N5#102=#102/2 #101=#101/2 IF[#106LE0]GOTO6 G00G90Y[-#102-20] Z1. G01Z0 G41Y-#102 GOTO7 N6Z1. G01Z0 G42Y-#102 N7#100=#102-#105 WHILE[#100GT0]DO1 Y-#100X-[SQRT[#101*#101*[1-#100*#100/[#102*#102]]]] #100=#100-#105 END1 #100=0 WHILE[#100LT#102]DO1 Y#100X-[SQRT[#101*#101*[1-#100*#100/[#102*#102]]]] #100=#100+#105 END1 #100=#102 WHILE[#100GT0]DO1 Y#100X[SQRT[#101*#101*[1-#100*#100/[#102*#102]]]] #100=#100-#105 END1 #100=0 WHILE[#100LT#102]DO1 Y-#100X[SQRT[#101*#101*[1-#100*#100/[#102*#102]]]] #100=#100+#105 END1 X0Y-#102 IF[#106GT0]GOTO8 G01G40X0 GOTO9 N8G01G40Y[-#102-20] N9G00Z50.M09 G91G28Z0 G00G90X0Y0 G69 M30 %