Siemens SINUMERIK 840D sl Programming Manual page 639

Note
Please note that the variables must be defined before they are used.
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, 03/2013, 6FC5398-2BP40-3BA1
User stock removal programs
17.6 Calculate circle data (CALCDAT)
Comment
; Variable to specify the points
along a circle
; Variable for result
; Variable for status
; Call the determined circle data.
; Jump to error
639