Eigene Abspanprogramme
15.6 Kreisdaten berechnen (CALCDAT)
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
740
Kommentar
; Variable zur Angabe der
Kreispunkte
; Variable für Ergebnis
; Variable für Status
; Aufruf der ermittelten
Kreisdaten.
; Sprung zu Fehler
Programmierhandbuch, 02/2011, 6FC5398-2BP40-1AA0
Arbeitsvorbereitung