Télécharger la plaquette Cast3M


fr en

Télécharger sge.procedur

Retour à la liste

Numérotation des lignes : 

  1. * SGE       PROCEDUR  MAGN      04/09/16    21:15:05     4909           
  2. 'DEBPROC' SGE ;
  3. ARGU RX*TABLE ;
  4. *mess 'Debut SGE ' ;
  5. rv=rx.'EQEX' ;
  6. iarg=rx.'IARG' ;
  7.  
  8.  Si(Non (ega iarg 3));
  9.  Mess '*********************************************************' ;
  10.  Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
  11.  Mess '                                                         ' ;
  12.  Mess 'Le nombre d arguments de SGE (' iarg ')  est incorect    ' ;
  13.  Mess '*********************************************************' ;
  14.  erreur 21 ;
  15.  quitter SGE ;
  16.  Finsi ;
  17.  
  18. NASTOK = rv.'NAVISTOK' ;
  19.  
  20. MRO=rx.'ARG1' ;
  21. Si (EGA (TYPE MRO) 'MOT');
  22. ro=rv.inco.mro;
  23. Sinon ;
  24. ro = mro ;
  25. Finsi ;
  26.  
  27. Si (EGA (TYPE MMU) 'MOT');
  28. MMU=rx.'ARG3' ;
  29. mu=rv.inco.mmu;
  30. Sinon ;
  31. mu = mmu ;
  32. Finsi ;
  33.  
  34. MIU=rx.'ARG2' ;
  35. UN=rv.inco.miu;
  36.  
  37. P = PRODT UN $mod ;
  38.  
  39. IDIM = 'VALE' 'DIME'    ;
  40. Dg=doma $mod 'XXDIAGSI' ;
  41. lms=Dg**(1./IDIM);
  42. cs=0.01;
  43. muts=Ro*2.*cs*lms*lms*(P**0.5);
  44. muts=kcht $mod scal sommet muts;
  45. mut= noel $mod muts ;
  46.  
  47. rv.inco.'MUT'=(mut + mu) ;
  48.  
  49. *mess 'Fin SGE' ;
  50. as2 ama1  = 'KOPS' 'MATRIK' ;
  51. RESPRO as2 ama1 ;
  52. FINPROC ;
  53.  
  54.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales