Siemens Sinumerik 840D sl Programming Manual page 740

User stock removal programs
15.6 Calculate circle data (CALCDAT)
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
740
Comments
; Variable to specify the points
along a circle
; Variable for result
; Variable for status
; Call the determined circle
data.
; Jump to error
Programming Manual, 02/2011, 6FC5398-2BP40-1BA0
Job planning