Логическое решение задачи

Если G3, то проверяем значение заданных координат:

Если I_sled > 0 и J_sled >= 0, то I = 1, J = -1;

Если I_sled < 0 и J_sled <= 0, то I = -1, J = 1;

Если I_sled < 0 и J_sled >= 0, то I = 1, J = 1;

Если I_sled > 0 и J_sled <= 0, то I = -1, J = -1

Если G2, то проверяем значение заданных координат:

Если I_sled > 0 и J_sled >= 0, то I = -1, J = 1;

Если I_sled < 0 и J_sled <= 0, то I = 1, J = -1;

Если I_sled < 0 и J_sled >= 0, то I = -1, J = -1;

Если I_sled > 0 и J_sled <= 0, то I = 1, J = 1

    Следующее операция описана формулами:

I _ nast = Y _ nast + J _ sled

J_nast = X_nast + I_sled

    Заключительные вычисления:

если I = -1 и J > 0, то J _ nast := - J _ nast ;

если I = 1 и J < 0, то J _ nast := - J _ nast ;

если J = -1 и I > 0, то I_nast:= -I_nast;

если J = 1 и I < 0, то I_nast:= -I_nast

Рис 2.5

Описание алгоритма метода выбора обработки

Назначение и характеристика алгоритма

Алгоритм описывает метод выбора обработки пользователем в зависимости от назначения конечного результата. 

 

Используемая информация

В алгоритме используется графическая оболочка метода выбора обработки.

Результаты решения

В результате реализации алгоритма программа настраивается для обработки заданным методом.

Алгоритм решения

1. Если Form 2. PC _ MAYAK . Checked , то переход к п. 2

     2. pc _ mayak ( bufer );

3. Если Form 2. PC _ VM . Checked , то переход к п. 4

     4. pc _ vm ( bufer );

5. Если Form 2. VM _ MAYAK . Checked , то переход к п. 6

     6. vm _ mayak ( bufer );

7. Если Form 2. MAYAK _ VM . Checked , то переход к п.8

    8. mayak_vm(bufer);

    9.  Bufer:= '';

10. Inc ( m );

   11. конец

Список условных обозначений

Условные обозначения, используемые в описании алгоритма, приведены в табл. 4.

Таблица 4

Условные обозначения

Обозначение	Расшифровка
bufer	Строка значение процедуры
pc_mayak(bufer);	Процедура пересчёта заданным методом
pc_vm(bufer);	Процедура пересчёта заданным методом
vm_mayak(bufer);	Процедура пересчёта заданным методом
mayak_vm(bufer);	Процедура пересчёта заданным методом
Form2.MAYAK_VM.Checked	Свойства переключателя
Bufer	Переменная хранения строки
Inc()	Функция увеличения

 

Схема алгоритма метода выбора обработки

 

 

Рис 2.6

Описание алгоритма выбора вспомогательных методов обработки

Назначение и характеристика алгоритма

Алгоритм описывает дополнительные (вспомогательные) методы выбора обработки данных.В результате выбора подключаются дополнительные возможности (удаление пробелов, пустых строк и последовательная нумерация кадров).

Используемая информация

В алгоритме используется графическая оболочка метода выбора обработки.

Результаты решения

В результате реализации алгоритма программа настраивается для обработки дополнительными методами.

Алгоритм решения

1. Если Form 1. Probel . Checked , переходим к п. 2

     2. DelProbel ( bufer );

3. Если Form 1. NomerKadra . Checked , то переходим к п. 4

     4. nomerkadra ( bufer );

     5. Если Form 1. PustoStr . Checked , то переход к п. 6

     6. pustostroka;

    7. Bufer:= '';

     8. Inc(m);

   9. конец

                                                                                            Таблица 5

Список условных обозначений

Название	Описание
Bufer	Переменная хранения строки
Inc()	Функция увеличение значения
DelProbel(bufer);	Функция удаления пробелов
nomerkadra(bufer);	Функция восстановления нумерации кадров
pustostroka;	Функция удаления пустых строк

Описание алгоритма конвертирования

Назначение и характеристика алгоритма

Алгоритм описывает конвертирование исходного текста программы для станков с ЧПУ. В результате программа пересчитывает все исходные координаты из данной системы программирования в заданную.

Алгоритм решения

    1. Если ( pos ('%', kadr ) <> 0) or ( pos ('$', kadr ) <> 0), то переход к п. 28

    2. Если pos (' X ', kadr ) <> 0, то переход к п. 3 иначе к п. 5

    3. NaytiKoordinatu(kadr,'X', vyh);

    4. PreobrazovanieMayak(X_nast, kadr);

    5. uslovie:= FindVstavki('X', kadr);

    6. DobavitTochku(s);

     7. insert(Concat('X', s), kadr, uslovie);

    8. Если ( pos (' G 42', kadr ) <> 0) or ( pos (' G 41', kadr ) <> 0), то пер к п. 9

    9. Если pos (' X ', kadr ) = 0, то переход к п. 10

    10. uslovie:= FindVstavki('X', kadr);

    11. Insert('X' + s, kadr, uslovie);

    12. Если (pos('I', Stroka.Strings[Succ(m)]) <> 0) and (pos('J', Stroka.Strings[Succ(m)]) <> 0), то переход к п . 13 иначе к п . 16

    13. Naytikoordinatu(Stroka.Strings[Succ(m)], 'I', st);

    14. Naytikoordinatu(Stroka.Strings[Succ(m)], 'J', st);

    15. Podhod_G41_G42_radius;

    16. Podhod_G41_G42_line;

    17. Если pos (' I ', kadr ) <> 0, то переход к п. 18

    18. NaytiKoordinatu(kadr, 'I', st);

    19. PreobrazovanieMayak(X_sled, kadr);

    20. uslovie:= pos('I',kadr);

    21. Если uslovie <> 0, то переход к п . 22

    22. NaytiKoordinatu(kadr,'I',vyh);

    23. Если oshibka = 1, то переход к п . 24

    24. I:= X_pred + I;

    25. preobrazovanieMAYAK(I,kadr);

    26. X_pred:= X_nast;

    27. Y_pred:= Y_nast;

    28. конец

                                                                                                             Таблица 6

Список условных обозначений

Обозначение	Расшифровка
Kadr	Текущая строка обработки
NaytiKoordinatu(kadr,'X', vyh);	Функция нахождения значения координаты
vyh	Выходное значение процедуры
PreobrazovanieMayak(X_nast, kadr);	Функция преобразования координаты
X_nast и X_pred	Числовая переменная настоящего и предыдущего значения Х
uslovie	Числовая переменная
FindVstavki('X', kadr);	Функция поиска вставки значения заданной координаты в строке
DobavitTochku(s);	Функция вставляет точку в строку, если её нет
insert(Concat('X', s), kadr, uslovie);	Функция вставляет и сцепляет строки
(pos('I', Stroka.Strings[Succ(m)])	Функция поиска и проверки заданной позиции в строке
Podhod_G41_G42_radius	Функция расчёта радиусов на заходах
Podhod_G41_G42_line;	Функция расчёта линейных заходов
I и J	Координаты круговой интерполяции в программе
Y_nast и Y_pred	Числовая переменная настоящего и предыдущего значения Y