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

UptoLike

outtextxy(315,97,' 2 2 ');
outtextxy(315,99,' _ ');
outtextxy(315,108,'прямой AB. Плоскость П определяется');
outtextxy(315,111,' 2 ');
outtextxy(315,118,'уравнением : ');
outtextxy(315,128,' y = k x ');
outtextxy(315,131,' 1 ');
outtextxy(315,138,' Отсюда ');
outtextxy(315,150,' k ');
outtextxy(315,153,' 1 ');
line(450,161,550,161); line(470,165,540,165);
line(455,170,457,170); line(457,170,457,183);
line(458,170,458,182); line(458,183,470,165);
outtextxy(315,156,'(2) sin a = ; ');
outtextxy(315,167,' 2 ');
outtextxy(315,171,' 1 + k ');
outtextxy(315,175,' 1 ');
outtextxy(315,195,' 1 ');
line(450,203,550,203); line(470,207,540,207);
line(455,212,457,212); line(457,212,457,225);
line(458,212,458,225); line(458,225,470,207);
outtextxy(315,198,'(3) cos a = . ');
outtextxy(315,209,' 2 ');
outtextxy(315,213,' 1 + k ');
outtextxy(315,217,' 1 ');
outtextxy(315,227,' a - угол поворота осей координат. ');
outtextxy(315,237,'Он будет положителен, если вращение ');
outtextxy(315,247,'осуществляется против движения часовой');
outtextxy(315,257,'стрелки.');
outtextxy(300,267,' При замене горизонтальной плоскости');
outtextxy(10,269,' _ ');
outtextxy(10,278,'проекций П на новую плоскость проекций П ');
outtextxy(10,281,' 1 1 ');
outtextxy(10,280,' _ ');
outtextxy(10,290,' x = x * cos a + z * sin a , ');
outtextxy(10,292,' _ ');
outtextxy(10,301,' y = y , ');
outtextxy(10,303,' _ ');
outtextxy(10,312,' z = - x * sin a + z * cos a ; ');
ent(7);
if kod<>13 then
exit;
s:=s+1;
end;
43
 outtextxy(315,97,' 2             2        ');
 outtextxy(315,99,'              _        ');
 outtextxy(315,108,'прямой AB. Плоскость П определяется');
 outtextxy(315,111,'               2        ');
 outtextxy(315,118,'уравнением :                      ');
 outtextxy(315,128,'            y=kx            ');
 outtextxy(315,131,'               1        ');
 outtextxy(315,138,' Отсюда                        ');
 outtextxy(315,150,'               k        ');
 outtextxy(315,153,'                1       ');
 line(450,161,550,161); line(470,165,540,165);
 line(455,170,457,170); line(457,170,457,183);
 line(458,170,458,182); line(458,183,470,165);
 outtextxy(315,156,'(2) sin a =          ;       ');
 outtextxy(315,167,'                  2     ');
 outtextxy(315,171,'             1+k           ');
 outtextxy(315,175,'                  1     ');
 outtextxy(315,195,'                1       ');
 line(450,203,550,203); line(470,207,540,207);
 line(455,212,457,212); line(457,212,457,225);
 line(458,212,458,225); line(458,225,470,207);
 outtextxy(315,198,'(3) cos a =           . ');
 outtextxy(315,209,'                  2     ');
 outtextxy(315,213,'             1+k           ');
 outtextxy(315,217,'                  1     ');
 outtextxy(315,227,' a - угол поворота осей координат. ');
 outtextxy(315,237,'Он будет положителен, если вращение ');
 outtextxy(315,247,'осуществляется против движения часовой');
 outtextxy(315,257,'стрелки.');
 outtextxy(300,267,' При замене горизонтальной плоскости');
 outtextxy(10,269,'                        _                             ');
 outtextxy(10,278,'проекций П на новую плоскость проекций П                            ');
 outtextxy(10,281,'      1                   1                            ');
 outtextxy(10,280,'                                _                     ');
 outtextxy(10,290,'                                x = x * cos a + z * sin a , ');
 outtextxy(10,292,'                                _                     ');
 outtextxy(10,301,'                                y=y ,                   ');
 outtextxy(10,303,'                                _                     ');
 outtextxy(10,312,'                                z = - x * sin a + z * cos a ; ');
 ent(7);
 if kod<>13 then
         exit;
 s:=s+1;
end;


                                                                                        43