670 Руководство SIEMENS SINUMERIK 840D sl / 828D Расширенное программирование Стр.670

Руководство SIEMENS 2013 840D Расширенное программирование Стр. 670 0670 Lab2u

Собственные программы обработки резаньем 17.6 Вычисление данных окружности (CAL CDAT) Пример Из трех точек необходимо определить, лежат ли они на круговом сегменте. Y Программный код Комментарий N10 DEF REAL PKT 3,2 = (20,50,50,40,65,20) ; Переменная окружности для указания точек N2 0 DEF REAL ERG 3 ; Переменная для результата N3 0 DEF BOOL STATUS ; Переменная для состояния N40 STATUS=CALCDAT(PKT ,3,ERG) ; Вызов полученных данных окружности N5 0 IF STATUS FALSE GOTOF ERROR ; Переход на ошибку 670 Расширенное программирование Справочник по программированию, 03/2013, 6FC5398-2BP40-3PA1