® ®

Parte 4
Programação
Parametrizada

S94860 B - Manual de Programação e Operação – SIEMENS 810 D 127 S94860 B - Manual de Programação e Operação – SIEMENS 810 D 128
 ® ®

1 - PARÂMETROS DE CÁLCULO “R” N20 G1 X=R5 F=R10 Efeito: A máquina deslocará até a coordenada
X24 numa Va = 250 mm/min
1.1 - Explanação:
1.5 - Operações/funções aritméticas:
Parâmetros de cálculo “R” são registros fixos de R0 a R99 disponíveis para
assinalamento de valores e usados analogamente às variáveis. Ao aplicar o cálculo/funções aritméticas é necessário observar a notação
matemática usual, isto é, a multiplicação/divisão tem prioridade sobre adição/subtração.
Para definir prioridade arbitrária e/ou específica da execução, usa-se o “parênteses”.
1.2 - Aplicação: Em todas as circunstâncias onde é usado valores em graus, estes devem ser declarados
Desenvolvimento de programas de família de peças onde tem-se a mesma geometria, em milésimos.
porém, valores dimensionais variáveis, desenvolvimento de perfis bidimensionais e/ou Exemplos: N60 R1=8 R20=SIN(30.345) R9=R7*R8 R12=R10/R11
tridimensionais gerados ponto a ponto cujas coordenadas são calculadas através de N70 R13=R1*R20-R9
algorítmos contidos dentro do programa com desvios condicionais, etc. N80 R15=SQRT(R13+R9*R1)

1.3 - Atribuição de valores:

2 - OPERADORES / FUNÇÕES ARITMÉTICAS
Aos parâmetros “R” podem ser atribuídos valores diretos ou indiretos cujo
resultado deverá estar contido na seguinte gama:
2.1- Principais operadores e funções aritméticas:
+ ou - (0.0000001 - 9999.9999)
(oito casas decimais + sinal + ponto decimal) Os parâmetros de cálculo "R", conforme visto no capítulo anterior, podem ser
- No caso de valores inteiros, o ponto decimal pode ser omitido. submetidos a diversos tipos de cálculos. Os principais operadores são:
- Um sinal positivo sempre pode ser omitido.
Exemplo: R0=3.5678 R1=-36.4 R3=-3.65 R4=-6765.1234 + Adição
- Subtração
Através da notação exponencial “EX” pode ser alocada uma gama mais ampliada de * Multiplicação
números, assim, o valor do expoente escreve-se após os caracteres EX. / Divisão
Exemplo: R0=-0.1EX-5 Significado: R0=-0.000 001 SIN(*) Seno
R1=1.874EX8 Significado: R1=187 400 000 COS(*) Cosseno
TAN(*) Tangente
Nota: É permitido efetuar uma série de atribuição de valores num único bloco, ASIN(*) Arcoseno
porém, o bloco deve ser exclusivo para atribuição. ACOS(*) Arcocosseno
Exemplo válido: R0=3.5678 R1=-36.4 R3=-3.65EX3 R4=3.23EX-2 ATAN2(*) Arcotangente
Exemplo inválido: R7=15 R15=3.1415 R42=R15*(COS(R7)) SQRT(*) Raiz quadrada
ABS(*) Número absoluto
POT(*) Potência de 2 (elevação ao quadrado)
1.4 - Aplicação dos parâmetros dentro do programa:
TRUNC(*) Truncar p/ inteiro
Os parâmetros de cálculo e/ou expressões aritméticas com parâmetros de cálculo ROUND(*) Arredondar p/ inteiro
poderão substituir valores em todos endereços do programa exceto N, G e L, para LN(*) Logarítmo natural
tanto, escreve-se após o caracter de endereço o caracter “=” e a identificação do EXP(*) Função exponencial
parâmetro, seguido ou não de expressão aritmética.
* = inserir valor
Exemplo: N10 R5=24 R10=250 Efeito: Atribuido valor 24 ao parâmetro R5
e 250 ao R10.
S94860 B - Manual de Programação e Operação – SIEMENS 810 D 129 S94860 B - Manual de Programação e Operação – SIEMENS 810 D 130
 ® ®

Exemplos: NOTA2: LABEL DESTINO é a identificação do bloco para o qual a execução

R1=R1+2 Resultado: Valor contido em R1 + 2. deverá ser desviada caso o resultado da comparação seja verdadeira.
R3=SIN(30) Resultado: R3 conterá o valor do seno de 30.
R4=R1+R20/R3 Resultado: R4 conterá o resultado da equação. NOTA3: Caso o resultado da comparação não seja verdadeira, não haverá desvio,
R5=(R1+R20)/R3 Resultado: R5 conterá o resultado da equação. logo, a execução continuará no próximo bloco.

Exemplo 1: IF R10>=R11 GOTOB INICIO

2.2 - Função aritmética ATAN2(___,___) Efeito: Caso R10 seja maior ou igual a R11 a execução será desviada para
o bloco (LABEL) nomeado como INICIO que está programado para trás deste bloco.
Esta função calcula o ângulo do vetor resultante (hipotenusa) tendo como dados
outros 2 vetores (catetos) de um ângulo reto. O resultado considera um dos 4 quadrantes
Exemplo 2: IF R20= = (SIN(R31)) GOTOF POSICAO
(-180 < 0 < 180o). A referência angular é sempre baseada numa linha originada no
Efeito: Caso R20 seja igual ao seno de R31 a execução será desviada
vértice do 2o valor seguindo na direção positiva.
para o bloco (LABEL) nomeado como POSICAO que está programado para diante
Exemplos:
deste bloco.
R20=ATAN2(30.5,80.1) Resultado: 20.8455o
R21=ATAN2(30.5,-80.1) Resultado: 159.1545o
R22=ATAN2(-30.5,-80.1) Resultado: 200.8455o
R23=ATAN2(-30.5,80.1) Resultado: 339.1545o

3 - OPERADORES DE COMPARAÇÃO E LÓGICOS

3.1 - Operadores de comparação:

Os operadores de comparação podem ser utilizados para formular uma condição de
desvio. Expressões complexas podem também ser comparadas. São eles:
== Equal to (Igual a)
<> Not equal to (Não igual a)
> Greater than (maior que)
< Less than (menor que)
>= Greater than or equal to (maior ou igual a)
<= Less than or equal to (menor ou igual a)

3.2 - Operadores Lógicos:

Operadores lógicos são usados para checar a condição de verdadeiro ou falso
numa comparação entre 2 valores efetuando um desvio condicional.
Síntaxe: IF (comparação) GOTO? (LABEL DESTINO)
NOTA1: “?” O desvio pode ser para um bloco (LABEL) que está para trás ou
para diante do bloco condicional. Se estiver para trás usa-se GOTOB (GO TO
BACKWARD), se para diante GOTOF (GO TO FORWARD).

S94860 B - Manual de Programação e Operação – SIEMENS 810 D 131 S94860 B - Manual de Programação e Operação – SIEMENS 810 D 132
 ® ®

4 - EXEMPLOS DE PROGRAMAS PARAMETRIZADOS: G42 G1 X0 Y0 F=R9

X=R1-R6
IMPORTANTE: Todos os exemplos foram elaborados considerando máquina G3 X=R1 Y=R6 CR=R6
com MAGAZINE PADRÃO e sem SHOPMILL.
G1 Y=R4-R3
X=R1-R3 Y=R4
EXEMPLO 1: Elaborar um programa parametrizado para uma família de peças, X=R2
conforme o desenho abaixo: X0 Y=R4-R5
Y0
G40 X=-(R7+R8) Y=-(R7+R8)
G53 G0 Z-110 D0 M5
M30

EXEMPLO 2: Elaborar um programa parametrizado para uma família de peças,

conforme o desenho abaixo:

%_N_EXE_2_MPF
;$PATH=/_N_MPF_DIR
G17 G64 G71 G90 G94
G53 G0 Z-110 D0
T2
M6
G54 D1 S2500 M3
R1=200;_________________ COMPRIMENTO TOTAL DA PECA
R2=70;__________________ COMPRIMENTO DO "CHANFRO" 1 %_N_EXE_2_MPF
R3=10;__________________ CHANFRO 2 (45 GRAUS) ;$PATH=/_N_MPF_DIR
R4=150;_________________ LARGURA TOTAL DA PECA G17 G64 G71 G90 G94
R5=20;__________________ LARGURA DO "CHANFRO" 1 G53 G0 Z-110 D0
R6=50;__________________ RAIO T3
M6
R7=10;__________________ DIAMETRO DA FERRAMENTA
G54 D1 S3500 M3
R8=3;___________________ FOLGA PARA A APROXIMACAO R1=60;_________________ COMPRIMENTO 1
R9=350;_________________ AVANÇO R2=100;_________________ COMPRIMENTO TOTAL DA PECA
R7=R7/2;________________ CALCULO DO RAIO DA FERRAMENTA R3=30;__________________ LARGURA 1
R4=60;__________________ LARGURA TOTAL DA PECA
G0 X=-(R7+R8) Y=-(R7+R8) R5=5;___________________ LARGURA DO CHANFRO x 45 GRAUS
Z5 R6=25;__________________ RAIO 1
Z-5 R7=7;___________________ RAIO 2

S94860 B - Manual de Programação e Operação – SIEMENS 810 D 133 S94860 B - Manual de Programação e Operação – SIEMENS 810 D 134
 ® ®

R8=20;__________________ RAIO 3 EXEMPLO 3: Elaborar um programa parametrizado para fazer um sextavado

R9=20;__________________ DIAMETRO DA FERRAMENTA inscrito num determinado círculo:
R10=400;________________ AVANCO
R11=0;__________________ Z INICIAL
R12=-20;________________ Z FINAL
R13=2;__________________ PROFUNDIDADE DE CORTE
R14=5;__________________ FOLGA PARA A APROXIMACAO EM X E Y
R15=5;__________________ FOLGA PARA A APROXIMACAO EM Z
R9=R9/2;________________ CALCULO DO RAIO DA FERRAMENTA
R16=R11+R15;___________ CALCULO DO Z INICIAL
R20=R11-R13;____________ COORDENADA DA PRIMEIRA PASSADA
G0 X=-(R9+R14) Y=-(R9+R14)
Z=R16
AAA: G0 Z=R20
BBB: G42 G1 X0 Y0 F=R10
X=R1 RND=R8
X=R2 Y=R3
Y=R4 CHR=R5
X=R6 %_N_EXE_3_MPF
G2 X0 Y=R4-R6 CR=R6 RND=R7 ;$PATH=/_N_MPF_DIR
G1 Y0 G17 G64 G71 G90 G94
CCC: G40 X=-(R9+R14) Y=-(R9+R14) G53 G0 Z-110 D0
R20=R20-R13 T12
IF R20>R12 GOTOB AAA M6
G0 Z=R12 G54 D1 S2700 M3
REPEAT BBB CCC R1=50;__________________ RAIO DO CIRCULO
G0 Z=R16 R2=10;__________________ DIAMETRO FERRAMENTA
G53 G0 Z-110 D0 M5 R3=0;___________________ ANGULO INICIAL
M30 R4=3;___________________ FOLGA PARA A APROXIMACAO
R5=200;_________________ VELOCIDADE DE AVANÇO
R6=0;___________________ CONTADOR DO NO. DE LADOS
R2=R2/2;________________ CALCULO DO RAIO FERRAMENTA
R1=R1+R2;______________ REDEFINIÇÃO RAIO DO CIRCULO
R10=R3;_________________DUPLICA A VARIAVEL R3
R11=200;_________________VEL. DE AVANÇO
G00 X=((R1+R4)*COS(R3)) Y=((R1+R4)*SIN(R3))
Z2
G01 Z-5 F150
INICIO: G01 X=(R1*COS(R3)) Y=(R1*SIN(R3)) F=R11
R3=R3+60
R6=R6+1
IF R6<=6 GOTOB INICIO
G1 X=((R1+R4)*COS(R10)) Y=((R1+R4)*SIN(R10))
G53 G00 Z-110 D0
M30
S94860 B - Manual de Programação e Operação – SIEMENS 810 D 135 S94860 B - Manual de Programação e Operação – SIEMENS 810 D 136
 ® ®

EXEMPLO 4: Elaborar um programa parametrizado para executar arcos de 0,001 EXEMPLO 5: Elaborar um programa parametrizado para executar uma elipse real
a 360 graus de abertura utilizando a função G01. de 360º.

%_N_EXE_4_MPF
;$PATH=/_N_MPF_DIR %_N_EXE_5_MPF
G17 G64 G71 G90 G94 ;$PATH=/_N_MPF_DIR
G53 G0 Z-110 D0 G17 G64 G71 G90 G94
T1 G53 G0 Z-110 D0
M6 T18;_____
G54 D1 S2500 M3 M6
R1=50;________________ RAIO DO ARCO G54 D1 S3500 M3
R20=10;_______________ DIAMETRO FERRAMENTA R1=80;____________________________ COMPRIMENTO EIXO MAIOR
R3=0;_________________ ANGULO INICIAL/CORRENTE R2=50;____________________________ COMPRIMENTO EIXO MENOR
R4=360;_______________ ANGULO FINAL R20=10;___________________________ DIAMETRO FERRAMENTA
R5=1;_________________ INCREMENTO ANGULAR R1=((R1+R20)/2) R2=((R2+R20)/2);____ DEF RAIO EIXO > e <
R6=R20/2;_____________ DEFINIÇÃO RAIO FERRAMENTA R3=0;_____________________________ ANGULO INICIAL/CORRENTE
R7=3;_________________ FOLGA PARA A APROXIMACAO R4=360;___________________________ ANGULO FINAL
R10=200;______________ VELOCIDADE DE AVANÇO R5=1;_____________________________ INCREMENTO ANGULAR
R1=R1+R6;____________ REDEFINIÇÃO RAIO DO ARCO R7=3;_____________________________ FOLGA PARA A APROXIMACAO
G00 X=((R1+R7)*COS(R3)) Y=((R1+R7)*SIN(R3)) R10=200;__________________________ VELOCIDADE DE AVANÇO
Z2 G00 X=((R1+R7)*COS(R3)) Y=((R2+R7)*SIN(R3))
G01 Z-5 F150 Z2
INICIO: G01 X=(R1*COS(R3)) Y=(R1*SIN(R3)) F=R10 G01 Z-5 F150
R3=R3+R5 INICIO: G01 X=(R1*COS(R3)) Y=-(R2*SIN(R3)) F=R10
IF R4>R3 GOTOB INICIO R3=R3+R5
G01 X=(R1*COS(R4)) Y=(R1*SIN(R4)) IF R4>R3 GOTOB INICIO
X=((R1+R7)*COS(R4)) Y=((R1+R7)*SIN(R4)) G01 X=(R1*COS(R4)) Y=(R2*SIN(R4))
G53 G00 Z-110 D0 X=((R1+R7)*COS(R4)) Y=((R2+R7)*SIN(R4))
M30 G53 G00 Z-110 D0
M30
S94860 B - Manual de Programação e Operação – SIEMENS 810 D 137 S94860 B - Manual de Programação e Operação – SIEMENS 810 D 138
 ® ®

EXEMPLO 6: Elaborar um programa parametrizado para executar uma espiral de EXEMPLO 7: Elaborar um programa parametrizado para executar uma espiral de
arquimedes tendo: arquimedes conjugado com uma descida em “Z” tendo:
Raio inicial: 10mm Raio inicial: 10mm
Raio final: 64mm Raio final: 64mm
N.espirais: 5 N.espirais: 5
Posição inicial: 0 grau Posição inicial: 0 graus
Pos “Z” inicial: 0
Pos “Z” final: 25

%_N_EXE_7_MPF
;$PATH=/_N_MPF_DIR
G17 G64 G71 G90 G94
G53 G0 Z-110. D0
T1;_____
%_N_EXE_6_MPF M6
;$PATH=/_N_MPF_DIR G54 D1 S2500 M3
G17 G64 G71 G90 G94 R1=10;_____________ RAIO INICIAL
G53 G0 Z-110 D0 R20=64;____________ RAIO FINAL
T12 R3=0;______________ ANGULO INICIAL/CORRENTE
M6 R7=5;______________ NUMERO DE ESPIRAIS
G54 D1 S2250 M3 R4=R7*360;_________ANGULO FINAL
R1=10;_____________ RAIO INICIAL R5=1;______________ INCREMENTO ANGULAR
R20=64;____________ RAIO FINAL R8=(R20-R1)/R4;____ INC/TO RADIAL_X_UNID.ANGULAR.
R3=0;______________ ANGULO INICIAL/CORRENTE R9=R8*R5;_________ INC/TO RADIAL P/INC/TO ANGULAR
R7=5;______________ NUMERO DE ESPIRAIS R10=200;___________ VELOCIDADE DE AVANÇO
R4=R7*360;_________ANGULO FINAL R11=0;_____________ ALTURA “Z” INICIAL/CORRENTE
R5=1;______________ INCREMENTO ANGULAR R12=25;____________ ALTURA “Z” FINAL
R8=(R20-R1)/R4;____ INC/TO RADIAL_X_UNID.ANGULAR. R13=R12-R11;_______PROFUNDIDADE
R9=R8*R5;_________ INC/TO RADIAL P/ INC/TO ANGULAR R14=R13/R4;________INC/TO “Z” P/ UNID. ANGULAR
R10=200;___________ VELOCIDADE DE AVANÇO R15=R14*R5;_______ INC/TO “Z” P/ INC/TO ANGULAR
G00 X=(R1*COS(R3)) Y=(R1*SIN(R3)) G00 X=(R1*COS(R3)) Y=(R1*SIN(R3))
Z2 Z2
G01 Z-5 F150 G01 Z=R11 F150
INICIO: G01 X=(R1*COS(R3)) Y=(R1*SIN(R3)) F=R10 INICIO:G01 X=(R1*COS(R3)) Y=(R1*SIN(R3)) Z=R11 F=R10
R3=R3+R5 R1=R1+R9 R3=R3+R5 R1=R1+R9 R11=R11-R15
IF R4>R3 GOTOB INICIO IF R4>R3 GOTOB INICIO
G01 X=(R20*COS(R4)) Y=(R20*SIN(R4)) G01 X=(R20*COS(R4)) Y=(R20*SIN(R4)) Z=(-R12)
G53 G00 Z-110 D0 G53 G00 Z-110 D0
M30 M30
S94860 B - Manual de Programação e Operação – SIEMENS 810 D 139 S94860 B - Manual de Programação e Operação – SIEMENS 810 D 140
 ® ®

EXEMPLO 8: Elaborar um programa parametrizado para executar uma calota (meia EXEMPLO 9: Elaborar um programa parametrizado para executar um
esfera) utilizando uma ferramenta ponta esférica. alojamento circular.

%_N_EXE_8_MPF
;$PATH=/_N_MPF_DIR
G17 G64 G71 G90 G94
G53 G0 Z-110. D0 %_N_EXE_9_MPF_DIR
T1;_____ ;$PATH=/_N_MPF_DIR
M6 R1=5;______________ PLANO DE RETORNO (Z)
G54 D1 S2500 M3 R2=0;______________ PLANO DE REFERENCIA (Z)
R1=50;_____________ RAIO DA CALOTA R3=2;______________ DISTANCIA DE SEGURANCA (Z - SEM SINAL)
R20=10;____________ DIAMETRO FERRAMENTA R4=-10;____________ Z FINAL (COORD. ABSOLUTA)
R20=R20/2;_________ DEFINIÇÃO RAIO FERRAMENTA R5=20;_____________ RAIO DO ALOJAMENTO
R1=R1+R20;________ DEFINIÇÃO PERCURSO CTR FERR/TA R6=75;_____________ CENTRO DO ALOJAMENTO EM X (ABS)
R3=0;______________ ANGULO INICIAL/CORRENTE R7=50;_____________ CENTRO DO ALOJAMENTO EM Y (ABS)
R4=90;_____________ ANGULO FINAL R8=3;______________ PROFUNDIDADE DE CORTE (AP - SEM SINAL)
R5=1;______________ INCREMENTO ANGULAR R9=350;____________ AVANÇO EM X
R6=0;______________ POSIÇÃO “Z” INICIAL / CORRENTE R10=175;___________ AVANÇO EM Z
R7=5;______________ FOLGA PARA APROXIMACAO R11=5;_____________ RAIO DA FERRAMENTA
R10=200;___________ VELOCIDADE DE AVANÇO R12=7;_____________ INCREMENTO DE CORTE LATERAL (AE)
CFTCP R13=R2+R3;________ CALCULO DO Z INICIAL
G00 X=(R1+R7)*COS(R3) Y0 IF (R11>R5) GOTOF ERRO
Z=R20+2 IF (R11=R5)GOTOF FURO
IF (R11<R5) GOTOF
G01 Z=R6 F150
INICIO_ALOJ ERRO:
INICIO: G01 X=R1*COS(R3) Y0 Z=R1*SIN(R3) F=R10 MSG(“ERRO! RAIO DA FERRAM > RAIO DO ALOJAMENTO”)
G02 X=R1*COS(R3) Y0 I=AC(0) J=AC(0) M0
R3=R3+R5 GOTOF FIM_PROG
IF R4>R3 GOTOB INICIO FURO:
G53 G00 Z-110 D0 G0 Z=R1
M30 X=R6 Y=R7
Z=R13
G1 Z=R4 F=R10
GOTO FIM_PROG
INICIO_ALOJ:
S94860 B - Manual de Programação e Operação – SIEMENS 810 D 141 S94860 B - Manual de Programação e Operação – SIEMENS 810 D 142
 ® ®

R20=R2-R8 EXEMPLO 10: Elaborar um programa parametrizado para executar um

R21=R6+R12 alojamento circular num cilindro utilizando 4o Eixo.
R22=R6+R5-R11
G0 Z=R1
X=R6 Y=R7
Z=R13
IF (R21<R22) GOTOF ALOJ_2
ALOJ_1:
IF R20<R4 GOTOF FIM_ALOJ1
G1 Z=R20 F=R10
G1 X=R22 F=R9
G2 I=AC(R6) J=AC(R7) G1
X=R6 Y=R7
R20=R20-R8
GOTOB ALOJ_1
FIM_ALOJ1:
G1 Z=R4 F=R10
G1 X=R22 F=R9 %_N_EXE_10_MPF
G2 I=AC(R6) J=AC(R7) G1 ;$PATH=/_N_MPF
X=R6 _DIR G17 G71
ALOJ_2: G90 G94
IF R20<=R4 GOTOF FIM_ALOJ2 G53 G0 Z-110 D0
G1 Z=R20 F=R10
T1
ALARG:
G1 X=R21 F=R9 G54 D1 S3500 M3
G2 I=AC(R6) J=AC(R7) R1=100;___________________DIAM. DA PECA
R21=R21+R12 R2=40; _____________ RAIO DO ALOJAMENTO
IF (R21<R22) GOTOB ALARG R13=5;______________ PLANO DE RETORNO
G1 X=R22 R3=0;_______________ PLANO DE REFERENCIA
G2 I=AC(R6) J=AC(R7) R4=2;_______________ DISTANCIA DE SEGURANCA
G1 X=R6 R5=-15;_____________ PROFUNDIDADE (ABS)
FIM_ALARG: R6=80;______________ COORD. X / CENTRO DO ALOJAMENTO
R7=0;_______________ POSIÇÃO ANGULAR INICIAL EM W
R21=R6+R12
R8=2;_______________ PROFUND. DE CORTE (Z)
R20=R20-R8 R9=8;_______________ INCREMENTO DE CORTE RADIAL
GOTOB ALOJ_2 R10=500;____________ AVANCO DE CORTE SUPERFICIAL (X,W)
FIM_ALOJ2: R11=250;____________ AVANCO DE CORTE NA PENETRACAO (Z)
G1 Z=R4 F=R10 R12=500;____________ AVANCO MAXIMO PARA W
REPEAT ALARG FIM_ALARG R14=16;_____________ RAIO DA FERRAMENTA
FIM_PROG: R15=0;______________ ANGULO INICIAL / CORRENTE
G0 Z=R1 R16=1;______________ INCREMENTO ANGULAR
G53 G0 Z-110 D0 R50=R1*3.14159;_____ PERIMETRO DA PECA
M30 R51=R3+R4-R8
R53=R9
R54=R15
G64 G0 X=R6 Y0 W=R7
S94860 B - Manual de Programação e Operação – SIEMENS 810 D 143 S94860 B - Manual de Programação e Operação – SIEMENS 810 D 144
 ®

Z=R13
Z=R3+R4
FL[W]=R12
INICIO: G1 Z=R51 F=R11
INI2:
IF R14>R2 GOTOF FIM
AAA: IF (R14+R9)>R2 GOTOF ACAB
RAIO: G1 X=(R6+(R9*COS(R15))) W=(R7+(R9*SIN(R15)))*360/(R1*3.141)
R15=R15+R16
IF R15<360 GOTOB
RAIO R15=R54
R9=R9+R53
GOTOB AAA
ACAB: G1 X=R6+((R2-R14)*COS(R15)) W=(R7+(((R2-R14)*360/R50))*SIN(R15))
N430 R15=R15+1
N440 IF R15<360 GOTOB RAIO
FIM2:
FIM:R51=R51-R8
IF R51>R5 GOTOB INICIO
G1 Z=R5 F=R11
REPEAT INI2 FIM2
G53 G0 Z-110 D0
M30

S94860 B - Manual de Programação e Operação – SIEMENS 810 D 145