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

Programas de desbaste propios
14.6 Cálculo de datos de circunferencia (CALCDAT)
Ejemplo
A partir de tres puntos, el programa determinará si éstos se encuentran en un arco de
circunferencia.
N10 DEF REAL PKT[3,2]=(20,50,50,40,65,20)
N20 DEF REAL RESULT[3]
N30 DEF BOOL STATUS
N40 STATUS = CALCDAT(PNT,3,RESULT)
N50 IF STATUS == FALSE GOTOF ERROR
14-16
;Definición de los puntos
;Resultado
;Variable para el estado
;Llamada de los datos de
;circunferencia calculados
;Salto a error
Manual de programación, Edición 03/2006, 6FC5398-2BP10-1EA0
Preparación del trabajo