Siemens SINUMERIK 828D Programming Manual page 706

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
706
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, 07/2010, 6FC5398-2BP40-0BA0
Job planning