Siemens SINUMERIK 840D sl Manual De Programación página 751

Ejemplo
A partir de tres puntos debe determinarse si éstos se encuentran en un segmento circular.
Código del programa
N10 DEF REAL PKT[3,2]=(20,50,50,40,65,20)
N20 DEF REAL RESULT[3]
N30 DEF BOOL STATUS
N40 STATUS=CALCDAT(PKT,3,RESULT)
N50 IF STATUS == FALSE GOTOF ERROR
Preparación del trabajo
Manual de programación, 06/2009, 6FC5398-2BP20-0EA0
Programas de desbaste propios
15.6 Cálculo de datos de circunferencia (CALCDAT)
Comentarios
; Variable para la indicación de
puntos de circunferencia
; Variable para resultado
; Variable para el estado
; Llamada de los datos de
circunferencia determinados.
; Salto a error
751