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

 ent(7);
 if kod<>13 then
         exit;
 outtextxy(10,273,' Очевидно, эта задача также легко решается заменой
горизонтальной плоскости');
 outtextxy(10,275,'                       _            _      _ ');
 outtextxy(10,284,'проекций П на новую плоскость проекций П . Для этого
новую ось x = П /\ П ');
 outtextxy(10,287,'      1                  1           21 2 1');
 outtextxy(10,294,'нужно выбрать параллельно фронтальной проекции A B
данной прямой. Построение');
 outtextxy(10,297,'                           22               ');
 outtextxy(10,296,'        _ _                                 ');
 outtextxy(10,305,'новых проекций A , B точек A, B выполняется по правилу:
при замене горизон-');
 outtextxy(10,308,'         1 1                                ');
 outtextxy(10,315,'тальной плоскости проекций на новую остается неизменной
ордината ( глубина)');
 outtextxy(10,325,'данной точки.');
 ent(7);
 if kod<>13 then
         exit;
 s:=s+1;
end;

procedure list3;
begin
 setgraphmode(1);
 setfillstyle(1,0);
 bar(0,0,getmaxx,getmaxy);
 setcolor(8);
 setbkcolor(15);
 nazv1;
 niz;
 ris1; ris2; ris3;
 setcolor(8);
 setbkcolor(15);
 outtextxy(300,40,' Приведем аналитическое решение этой');
 outtextxy(315,50,'задачи. Пусть прямая AB задана системой');
 outtextxy(315,60,'уравнений :                   ');
 outtextxy(315,70,'(1)     y = k x + b ,z = k x + b ');
 outtextxy(315,73,'          1 1       2 2 ');
 outtextxy(315,83,' Заменим фронтальную плоскость проекций');
 outtextxy(315,85,'             _          ');
 outtextxy(315,94,'П на новую плоскость П , параллельную');

42