Как вывести на экран, посредством lable или canvas, а потом вывести на печать.
;;; Вывод полученных данных
(progn
(format t "Стойка ~,6F, мм~%" *L1*)
(format t "Кривошип ~,6F, мм~%" *L2*)
(format t "Шатун ~,6F, мм~%" *L3*)
(format t "Коромысло ~,6F, мм~%" *L4*)
;;;(format t "Проверка выбранных размеров кривошипа,
;; шатуна, коромысла, стойки. Если t, полученные
;; данные принимаются ~A.~%" *prov*)
(format t "Шаг разбивки окружности ~,6F, мм~%" *step*)
(format t "Частота вращения ~,6F, об/мин~%" *n*)
(format t "Время пуска ~,6F, с~%" *time*)
(format t "Максимальный угол φ4max = ~,6F. рад~%" *phi4-max*)
(format t "Минимальный угол φ4min = ~,6F. рад~%" *phi4-min*)
(format t "Угол φ2 при максимальном φ4. φ2max = ~,6F. рад~%" *phi2-max*)
(format t "Угол φ2 при минимальном φ4. φ2min = ~,6F. рад~%" *phi2-min*)
(format t "Угол поворота коромысла ~,6F. рад~%" *angle*)
(format t "Максимальная угловая скорость ω3max = ~,6F. 1/c~%" *omega3-max*)
(format t "Максимальная угловая скорость ω4max = ~,6F. 1/c~%" *omega4-max*)
(format t "Максимальное угловое ускорение ε3max = ~,6F. 1/c^2~%"
*epsilon3-max*)
(format t "Максимальное угловое ускорение ε4max = ~,6F. 1/c^2~%"
*epsilon4-max*)
(format t "Выдача данных расчёта несколько искажена format поэтому
нужно брать цифру до 4 знака после запятой или это ещё
какое-то искажение.~%")
)
