Siemens SINUMERIK 840D sl Programming Manual page 819

Example
Using three points it should be determined as to whether they are located on a circle
segment.
Program code
N10 DEF REAL PT[3,2]=(20,50,50,40,65,20)
N20 DEF REAL RES[3]
N30 DEF BOOL STATUS
N40 STATUS=CALCDAT(PKT,3,ERG)
N50 IF STATUS == FALSE GOTOF ERROR
Job Planning
Programming Manual, 06/2009, 6FC5398-2BP20-0BA0
User stock removal programs
15.6 Calculate circle data (CALCDAT)
Comments
; Variable to specify the points
along a circle
; Variable for result
; Variable for status
; Call the determined circle
data.
; Jump to error
819