Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.mccme.ru/circles/mccme/7/ex/tex/6.mp Дата изменения: Sat Nov 15 19:22:16 2003 Дата индексирования: Sun Dec 23 01:15:43 2007 Кодировка: Поисковые слова: http www.astronomy.ru forum index.php topic 4644.0.html

beginfig(1);
u=.75cm;
pickup pencircle scaled 3pt;
for i=0 upto 2:
for j=0 upto 2: draw u*(i,j); endfor
endfor
endfig;

beginfig(2);
draw (0,0)--u*(2,0)--u*(2,1)--u*(1,1)--u*(1,2)--u*(0,2)--(0,0);
draw u*(1,0)--u*(1,1)--u*(0,1) dashed evenly;
endfig;

beginfig(3);
z1=(4/3)*u*(cosd(60),sind(60));
z2=(4/3)*u*(1,0);
draw (0,0)-- 2*z1--z1+z2--z1+2*z2-- 3*z2--(0,0);
draw z1+z2--z2--z1--z1+z2-- 2*z2--z1+2*z2 dashed evenly;
endfig;

bye