Решение метрических задач по начертательной геометрии на ЭВМ. Воронков А.И - 44 стр.

procedure list4;
begin
 setgraphmode(1);
 setfillstyle(1,0);
 bar(0,0,getmaxx,getmaxy);
 setcolor(8);
 setbkcolor(15);
 nazv1;
 niz;
 setcolor(8);
 setbkcolor(15);
 ris1; ris2; ris3;
 setcolor(8);
 setbkcolor(15);
 outtextxy(300,40,' При замене фронтальной плоскости про-');
 outtextxy(315,42,'                    _      ');
 outtextxy(315,51,'екций П на новую плоскость П :          ');
 outtextxy(315,53,'      2               2     ');
 outtextxy(315,58,'      _                    ');
 outtextxy(315,67,'      x = x * cos a + y * sin a , ');
 outtextxy(315,72,'      _                    ');
 outtextxy(315,80,'(4) y = - x * sin a + y * cos a , ');
 outtextxy(315,86,'      _                    ');
 outtextxy(315,94,'      z=z .                  ');
 outtextxy(315,109,'Подставив (2) и (3) в (4) и вы-');
 outtextxy(315,111,'               _ _ _       ');
 outtextxy(315,120,'разив x, y, z через x, y, z получа-');
 outtextxy(315,130,'ем формулы обратного преобразования :');
 outtextxy(345,153,'x =                      ;');
 outtextxy(424,136,'_');
 outtextxy(425,145,'x');
 line(375,156,475,156); line(395,160,465,160);
 line(380,165,382,165); line(382,165,382,178);
 line(383,165,383,177); line(383,178,395,160);
 outtextxy(403,164,' 2');
 outtextxy(403,168,'1 + k ');
 outtextxy(403,174,' 1');
 outtextxy(485,153,'-');
 outtextxy(536,136,' _');
 outtextxy(536,145,'k y');
 outtextxy(543,148,'1');
 line(500,156,600,156); line(520,160,590,160);
 line(505,165,507,165); line(507,165,507,178);
 line(508,165,508,177); line(508,178,520,160);
 outtextxy(528,164,' 2');

44