Télécharger la plaquette Cast3M


fr en

Télécharger mailstru.procedur

Retour à la liste

Numérotation des lignes : 

  1. * MAILSTRU  PROCEDUR  CHAT      95/12/08    21:22:14     1934           
  2. 'DEBPROC'  mailstru co*'MAILLAGE'   dd*'FLOTTANT' ;
  3. dden = &dens;
  4. 'DENS' dd  ;                                                            
  5. ox = 'COOR' 1 co;                                                         
  6. oy = 'COOR' 2 co;                                                               
  7. xmin = 'MINI' ox; xmax = 'MAXI' ox;                                             
  8. ymin = 'MINI' oy; ymax = 'MAXI' oy;                                         
  9. pinfg = xmin ymin;                                                      
  10. pinfd = xmax ymin;                                                      
  11. li = pinfg 'DROI' pinfd;                                                        
  12. lsu = li 'TRANS' ( 0 (ymax - ymin));  
  13. 'DENS' dden;                                                                    
  14. sinc = lsu 'INCLUS'  co 'STRI';          
  15. res = lsu elem  appuy largement    sinc;                                        
  16. 'FINPROC'   res;
  17.  

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