START PMESH

START PMESH X,Y,X,Nom$;[Err]

X,Y,Z

 :

Origine de la surface

Nom$

 :

Nom de la surface

Err

 :

Numéro de l'erreur

0 = Pas d'erreur

64 = Valeur fausse ou hors limites

167 = Surface non initialisé

204 = Impossible de créer ou modifier en mode consultation

Exemple

 ! Génération d'une surface polymesh
 Nx=20 ! Nombre de sommets en X
 Ny=20 ! Nombre de sommets en Y
 Ns=Nx*Ny ! Nombre de sommets
 Na=(Ny-1)*((Nx-1)*3+1)+Nx-1 ! Nombre d'aretes
 Nf=(Nx-1)*(Ny-1)*2 ! Nombre de faces
 START PMESH 0,0,0,""
 PMESH SIZE Ns,Na,Nf
 PMESH OPTION 1,35
 ! Génération des sommets
 FOR Y=1 TO Ny
   FOR X=1 TO Nx

     Yy=Y-Ny/2

     Xx=X-Nx/2

     N=SQRT(Xx*Xx+Yy*Yy)

     Z=10

     IF N THEN Z=SIN(N)/N*Z

     PMESH POINT X,Y,Z
   NEXT X
 NEXT Y
 ! Génération des aretes
 FOR Y=1 TO Ny-1
   I=(Y-1)*Nx
   FOR X=1 TO Nx-1
     PMESH EDGE I+X,I+X+Nx
     PMESH EDGE I+X,I+X+1
     PMESH EDGE I+X+1,I+X+Nx
     IF (Y=Ny-1) THEN PMESH EDGE I+X+Nx,I+X+Nx+1
   NEXT X
   PMESH EDGE I+Nx,I+Nx*2
 NEXT Y
 ! Génération des faces
 FOR Y=1 TO Ny-1
   FOR X=1 TO Nx-1
     I=(Y-1)*Nx
     PMESH FACE I+X,I+X+Nx,I+X+1
     PMESH FACE I+X+1,I+X+Nx,I+X+Nx+1
   NEXT X
 NEXT Y
 END PMESH
 ! Calcul des arêtes vives
 PMESH COMPUTE NB_ELEM
 END
 

Rubriques connexes
END PMESH , PMESH DIR , PMESH EDGE , PMESH FACE , PMESH OPTION , PMESH POINT , PMESH RBOUND , PMESH SBOUND , PMESH SIZE , PMESH SPLIT SHIFT