14
User Stock Removal Programs 12.98
14.6 Calculate circle data: CALCDAT
14
840D
NCU 571
840D
NCU 572
NCU 573
FM-NC 810D 840Di
ï›™
Siemens AG 2000. All rights reserved
14-480
SINUMERIK 840D/840Di/810D/FM-NC Programming Guide Advanced (PGA) – 04.00 Edition
Programming example
The program determines whether the three points lie
along the arc of a circle.
60
50
40
30
20
10
6050403020
ERG [1]
ERG [0]
10
Y
(20.50)
(50.40)
(65.20)
70
X
ERG[2]
N10 DEF REAL
PT[3,2]=(20,50,50,40,65,20)
Point definition
N20 DEF REAL RES[3]
Result
N30 DEF BOOL STATUS
Variable for status
N40 STATUS = CALCDAT(PT,3,RES)
Call calculated circle data
N50 IF STATUS == FALSE GOTOF ERROR
Jump to error