---------OTIMIZAÇÃO FRESAR CAVIDADE EM RAMPA QUADRADO/RETANGULAR---------

Описание: --------OTIMIZAÇÃO FRESAR CAVIDADE EM RAMPA QUADRADO/RETANGULAR--------
O0078(FRESAR CAVIDADE EM RAMPA QUADRADO/RETANGULAR)
(PROGRAMADO POR JEREMIAS FERRAZ)
G69
G91G28G0Z0
G90

G49T1M6G54G90G40G0(FRESA DIAMETRO 11MM)
G43G0G90H1Z50.0
S1800M3

#25=0(ANGULO DE ROTACAO DA CAVIDADE)
G54
G68X0Y0R#25(ROTACAO DO SISTEMA DE COORDENADAS)

#101=0("Z" INICIAL)
#102=0.5(INCREMENTO EM "Z" DESBASTE P/ ALIVIO DA CAVIDADE EM RAMPA )
( *****ATENCAO )
( #103 DEVERA TER O MESMO VALOR DO CALCULO DA VARIAVEL #7 )
#103=-10.722(PROFUNDIDADE FINAL EM "Z" VALOR NEGATIVO)
( *****ATENCAO )
( #104 E #105 DESBASTE P/ ALIVIO DA CAVIDADE EM RAMPA )
#104=38(COMPRIMENTO INFERIOR DA CAVIDADE NO SENTIDO DO EIXO "X")
#105=30(COMPRIMENTO INFERIOR DA CAVIDADE NO SENTIDO DO EIXO "Y")
#107=11(DIAMETRO DA FRESA)
#108=8(RAIO DOS CANTOS)
#109=800(AVANCO DA FRESA)
#110=2000(ROTACAO DA FRESA)
#123=3(APROXIMACAO DE SEGURANCA EM Z)
( NAO ALTERAR AS VARIAVEIS DAQUI EM DIANTE )
#104=#104/2
#105=#105/2
#107=#107/2
#112=#104-#107
#113=#105-#107
#116=0(INICIO EM X)
#117=0(INICIO EM Y)
#122=[#107*75]/100(75 PORC. DA FRESA P/ INCREMENTO)
G54G90G40G0X0Y0S#110M3
G43G0Z100H1M8
G0Z#123
G1Z1F200
G1Y[#107/2]
N5
#101=[#101-[+#102]]
IF[#101LT#103]THEN#101=#103
G3J-[#107/2]Z#101F200
#116=0(INICIO EM X)
#117=0(INICIO EM Y)
G2J-[#107/2]Z#101F200
IF[#108LE#107]THEN#108=#107(***)
WHILE[#116LT#112]DO1(CONTROLE RELACIONADO AO COMPRIMENTO MAIOR)
#118=#108-#107
#116=#116+#122
#117=#117+#122
IF[#116GE#112]THEN#116=#112
IF[#117GE#113]THEN#117=#113
G1Y-#117F#109
G1X#116,R#118
G1Y#117,R#118
G1X-#116,R#118
G1Y-#117,R#118
G1X0
END1
G91G0Z1
G90G0Y[#107/2]
IF[#101GT#103]GOTO5

G90G0Z5

#18=0(NAO ALTERAR)
N1
#1=60(COMPRIMENTO SUPERIOR DA CAVIDADE NO SENTIDO DO EIXO "X")
#2=50(COMPRIMENTO SUPERIOR DA CAVIDADE NO SENTIDO DO EIXO "Y")
#4=0(Z INICIAL NAO ALTERAR)
#5=40(NUMERO DE PASSES P/ INCREMENTO EM Z)
#8=11(DIAMETRO DA FRESA)
#6=65(ANGULO DA RAMPA RELACIONADO COM A FACE)
#9=3(DISTANCIA DE SEGURANCA AFASTAMENTO EM Z)
#10=10(RAIO DOS CANTOS)
#11=5(COMPRIMENTO PARA CALCULO DA INCLINACAO DA RAMPA)

( AJUSTAR VALORES DA DIVISÃO DE PASSES LATERAIS CONFORME NECESSIDADE ) )

#20=2.5(AJUSTE P/ PRIMEIRO PASSE)
#21=2.2(AJUSTE P/ SEGUNDO PASSE)
#22=2(PASSE FINAL NAO ALTERAR)

(NAO ALTERAR AS VARIAVEIS DAQUI EM DIANTE)

#16=#8/2
IF[#18EQ0]THEN#10=0
IF[#18EQ1]THEN#10=0

IF[#18EQ0]THEN#1=[[#1/#20]-#16](X INICIAL)
IF[#18EQ0]THEN#2=[[#2/#20]-#16](Y INICIAL)

IF[#18EQ1]THEN#1=[[#1/#21]-#16](X INICIAL)
IF[#18EQ1]THEN#2=[[#2/#21]-#16](Y INICIAL)

IF[#18EQ2]THEN#1=[[#1/#22]-#16](X INICIAL)
IF[#18EQ2]THEN#2=[[#2/#22]-#16](Y INICIAL)

#7=#11*TAN[#6](CALCULO DA PROFUNDIDADE DA CAVIDADE )
#15=#7/#5(CALCULO DO INCREMENTO EM Z)
#12=#15/TAN[#6](CALCULO DO INCREMENTO EM X)
#10=#10-#16

G0X#1Y0
G0Z#9
G1Z0F200
WHILE[#4LE#7]DO1
G1X#1Z-#4F800
G1Y-#2,R#10
G1X-#1,R#10
G1Y#2,R#10
G1X#1,R#10
G1Y0
#1=#1-#12
#2=#2-#12
#4=#4+#15
END1
G0Z#9
#18=#18+1
IF[#18LE2]GOTO1
G69
G0G90Z200M5

M30