Параметрическое программирование шестерни для ЧПУ.

Программа позволяет изготовить шестерню на 30-ть зубьев, выбранного вами модуля. Вместо эвольвенты контур будет аппроксимирован дугой. % :13(SHESTERNIA MODUL-RADIUS) (X0Y0- PO CENTRU) (Z0- OT BAZY) #101=30 (CHISLO ZUBOV) #102=3 (MODUL) (GOST 9563-60 1RIAD) (0.05 0.06 0.08 0.1 0.12 0.15 0.2 0.25 0.3 0.4 0.5 0.6 0.8 1 1.25 1.5 2 2.5 3 4 5 6 8 10 12 16 20 25 32 40 50 60 80 100) #103=20 (UGOL PROFILIA) #104=[#101*#102]/2(RADIUS DELITELNIY) #105=[-#101*#102-2*#102]/2(RADIUS VYSTUPOV max) #106=#101*#102/2-1.25*#102(RADIUS VPADIN) #107=COS[#103]*[#101*#102]/2(R OSNOVNOJ OKR.) #108=ACOS[[COS[#103]*#104]/[COS[#103]*#104-2*[#105+COS[#103]*#104]/3]](UGOL) #109=[COS[#103]*#104-2*[#105+COS[#103]*#104]/3](PERES. ZUB Y I SERED.) #110=[-3*[COS[#103]*#104]*SIN[#108]/4](CENTR X1) #111=[[COS[#108]*[COS[#103]*#104]]+[[COS[#103]*#104-2*[#105+COS[#103]*#104]/3]-[COS[#108]*[COS[#103]*#104]]]/4](CENTR Y1) #112=SQRT[#110*#110+[#109-#111]*[#109-#111]](R1 ZUB) #121=#105(R NARUJNIY) M97P1 #113=SQRT[#121*#121-#120*#120](Xmax) #114=#120(Ymax) #121=#106(R VPOADIN) M97P1 #115=[-SQRT[#121*#121-#120*#120]](Xmin) #116=#120(Ymin) #121=#101*#102/2(R SREDNIY) M97P1 #117=SQRT[#121*#121-#120*#120]('Xmidl) #118=#120('Ymidl) #117=[[ATAN[#117/#118]+ATAN[#115/#116]]*2+2*ASIN[[3.14159265*#102/4]/[[#101*#102]/2]]](UGOL ZUBA) #118=[360/#101-#117](UGOL VPADIN) #119=ATAN[#115/#116]-ATAN[#113/#114](UGOL EV. ZUBA) T1M06(FREZA KONC.) (D=R) G0G90G54X0Y[#105-10]M08 G43H1D1Z50.S1200M03F72. Z2. G1Z0 G41Y#105 #100=1 WHILE[#100LE#101]DO1 #121=#113 #123=#114 M97P2 G2X#122Y#123R-#105 #121=#115 #123=#116 M97P2 G2X#122Y#123R#112 #121=#115 #123=#116 #100=#100+#118*#101/360 M97P2 G2X#122Y#123R#106 #121=#113 #123=#114 #100=#100-#118*#101/360+[#118+#119*2]*#101/360 M97P2 #100=#100-[#118+#119*2]*#101/360 G2X#122Y#123R#112 #100=#100+1 #121=#113 #123=#114 M97P2 G2X#122Y#123R-#105 END1 G1G40X[#122+#122/[#102*2]]Y[#123+#123/[#102*2]]M9 M5 G0G91G28Z0 M30 N1(PERESECHENIE OKR.) (X-#110 Y-#111 r#112 R#121) (Y#120) #103=[[#112*#112-#110*#110-#111*#111-#121*#121]/[-2]] #104=#110*#110+#111*#111 #107=[2*#111*#103] #108=[#103*#103-#110*#110*#121*#121] #109=SQRT[#107*#107-4*#104*#108] #120=[[-#107-#109]/[2*#104]] M99 N2(POVOROT) (#121 #123) #122=[#121*COS[-#100*360/#101]-#123*SIN[-#100*360/#101]](X) #123=[#121*SIN[-#100*360/#101]+#123*COS[-#100*360/#101]](Y) M99 %