Modification des pages de gardes de la documentation.
[mp-solid.git] / doc / figures / hyperboloiderayonconstant.mp
1 input mp-solid
2
3 outcolor:=0.5[jaune,white];
4 incolor:=0.5[vert,white];
5
6 figureespace(-10u,-10u,10u,10u);
7 Initialisation(500,30,20,25);
8 a=20;b=36;h=8;
9 zz=-h/2;
10 ObjetNew1((sqrt(1+((zz+h)**2)/4),0,zz+h)    
11   for m=a downto 0:
12     for n=if m=a:b-1 else:b fi downto 1:%if k=a:b-1 else:b fi downto 0:
13       ,(sqrt(1+((zz+h*m/a)**2)/4)*cosd(n*(360 div b)),sqrt(1+((zz+h*m/a)**2)/4)*sind(n*(360 div b)),zz+h*m/a)
14     endfor
15   endfor
16   )(4,a*b,b+a*b,b-1+a*b,a*b-1
17   for m=a downto 1:
18     for n=if m=a:m*b-1 else: m*b fi downto (m-1)*b+2:
19       ,4,n,b+n,(b-1)+n,n-1
20     endfor
21     ,4,m*b+1,(m+1)*b,m*b,(m-1)*b+1
22   endfor
23   );
24 Ferme1:=false;
25 AffichageObjet1;
26 finespace;
27 end

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.