opti dime 3 elem tri3 echo 1 ;
******** géométrie
...
******** maillage
...
******** modèle
mod0 = mode mail0 mecanique elastique isotrope dkt ;
*mod0 = mode mail0 mecanique elastique isotrope dst ;
*** on précise ici les caractéristiques du matériau
mat0 = mate ... ;
*** on précise ici la valeur de l'épaisseur de la plaque
car0 = cara mod0 epai ... ;
*** le nouveau mat0 contiendra les caractéristiques du matériau et l'épaisseur de la plaque
mat0 = mat0 et car0 ;
******** conditions limites
...
******** matrice de rigidité 
...
******** matrice de masse
mas0 = mass mod0 mat0 ;
******** calcul des modes et fréquences
******** 3 manières de faire
****** 1) vous connaissez les valeurs approximatives des fréquences propres qui sont 100 Hz, 152 Hz, 325 Hz par exemple
freq0 = prog 100.0 152.0 325.0 ;
tab0 = vibr proche freq0 rig0 mas0 ;
****** 2) vous voulez trouvez les fréquences propres comprises entre 10.0 et 100.0 Hz
tab0 = vibr intervalle 10.0 100.0 rig0 mas0 ;
****** 3) On recherche les 3 fréquences propres voisines de 40.0 Hz
tab0 = vibr simultane 40.0 3 rig0 mas0 ;
*
****** tab0 contient alors les fréquences et modes propres
******** Post-Traitement
i=1 ;
repe bloc1 5 ;
  depl0 = tire tab0 depl rang i ;
  cine0 = anime mail0 20 depl0 i ;
  trac cine0 osci ;
  i=i+1 ;
fin bloc1 ;
*** on repète 5 fois la boucle
*** on tire de tab0 le deplacement du ième mode calculé et on le met dans depl0 = tire tab0 depl rang 1 ;
*** on créé une bande dessinée à 20 images et on la met dans cine0
*** et on trace cette bande dessinée