Siemens SINUMERIK 840D sl Programmierhandbuch Seite 819

Beispiel
Von drei Punkten soll ermittelt werden, ob sie auf einem Kreisabschnitt liegen.
Programmcode
N10 DEF REAL PKT[3,2]=(20,50,50,40,65,20)
N20 DEF REAL ERG[3]
N30 DEF BOOL STATUS
N40 STATUS=CALCDAT(PKT,3,ERG)
N50 IF STATUS == FALSE GOTOF ERROR
Arbeitsvorbereitung
Programmierhandbuch, 06/2009, 6FC5398-2BP20-0AA0
Eigene Abspanprogramme
15.6 Kreisdaten berechnen (CALCDAT)
Kommentar
; Variable zur Angabe der
Kreispunkte
; Variable für Ergebnis
; Variable für Status
; Aufruf der ermittelten
Kreisdaten.
; Sprung zu Fehler
819