Télécharger la plaquette Cast3M


fr en

Télécharger @cartoon.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @CARTOON  PROCEDUR  KK2000    98/01/19    21:19:34     3057           
  2. 'DEBPROC' @CARTOON TAB1*TABLE MAILL1*MAILLAGE                           
  3.   BL1/RIGIDITE OEIL/POINT AMPLI/FLOTTANT OSCILLE/MOT;                    
  4.   IDIM='VALE' DIME;                                                       
  5.   'SI' (IDIM 'EGA' 3);                                                    
  6.     'SI' ('NON' ('EXISTE' OEIL));                                        
  7.       'ERREUR' 'IL FAUT DONNER UN OEIL EN 3D';                          
  8.     'FINSI';                                                             
  9.   'FINSI';                                                                
  10.   'SI' ('EXISTE' BL1);                                                    
  11.     LVEC=VRAI;                                                           
  12.   'SINON';                                                                
  13.     LVEC=FAUX;                                                           
  14.   'FINSI';                                                                
  15.   'SI' ('EXISTE' OSCILLE);                                                
  16.     'SI' ('NON' (EGA OSCILLE 'NOSCIL'));                                 
  17.       'ERREUR' 'ON ATTEND  NOSCIL  COMME MOT';                             
  18.     'FINSI';                                                             
  19.   'FINSI';                                                                
  20.   LP1='EXISTE' TAB1 'DEPLACEMENTS';                                       
  21.   'SI' LP1;                                                               
  22.     MODEPL= 'CHAINE' 'DEPLACEMENTS';                                      
  23.   'SINON';                                                                
  24.     MODEPL= 'CHAINE' 'RESUDEPL';                                          
  25.   'FINSI';                                                                
  26.   IND='INDEX' (TAB1.MODEPL);                                              
  27.   NBINCR='DIME' IND;                                                      
  28.   'SI' LP1 ;                                                              
  29.     IINCR0=1;                                                              
  30.     NBINCR=NBINCR - 1;                                                     
  31.   'SINON';                                                                
  32.     IINCR0=0;                                                            
  33.   'FINSI';                                                                
  34.   IINCR=IINCR0;                                                           
  35.   MINAMPL=1.E+50;                                                         
  36.   FMAX=1.;                                                                
  37.   'SI' LVEC;                                                              
  38.     XLONG=('MAXI' ( 'COOR' 1 MAILL1)) - ('MINI' ( 'COOR' 1 MAILL1));     
  39.     YLONG=('MAXI' ( 'COOR' 2 MAILL1)) - ('MINI' ( 'COOR' 2 MAILL1));     
  40.     'SI' (YLONG > XLONG);                                                
  41.       XLONG=YLONG;                                                         
  42.     'FINSI';                                                             
  43.     'SI' (IDIM 'EGA' 3);                                                 
  44.       ZLONG=('MAXI' ( 'COOR' 3 MAILL1)) - ('MINI' ( 'COOR' 3 MAILL1));      
  45.       'SI' (ZLONG > XLONG);                                                 
  46.         XLONG=ZLONG;                                                       
  47.       'FINSI';                                                              
  48.     'FINSI';                                                             
  49.   'FINSI';                                                                
  50.   'REPETER' BOU1 NBINCR;                                                  
  51.     IINCR=IINCR+1;                                                       
  52.     AMP1='EXTR'('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR)) 'AMPL';           
  53.     'SI' (AMP1 '<' MINAMPL);                                             
  54.       MINAMPL=AMP1;                                                         
  55.     'FINSI';                                                             
  56.     'SI' LVEC;                                                           
  57.       FFMAX='MAXI' ('REAC' TAB1.MODEPL.(IND.IINCR) BL1) 'ABS';              
  58.       'SI' (FFMAX > FMAX);                                                   
  59.         FMAX=FFMAX;                                                        
  60.       'FINSI';                                                               
  61.     'FINSI';                                                             
  62.   'FIN' BOU1;                                                             
  63.   'SI' ('EXISTE' AMPLI);                                                  
  64.     MINAMPL=AMPLI;                                                          
  65.   'FINSI';                                                                
  66.   DEF1='DEFO' MAILL1 TAB1.MODEPL.(IND.1) 0 VERT;                          
  67.   'SI' LVEC;                                                              
  68.     AMPVEC=XLONG/(5.*FMAX);                                              
  69.     IINCR=IINCR0;                                                        
  70.     'REPETER' BOU2 (NBINCR-1);                                           
  71.       IINCR=IINCR+1;                                                        
  72.       REA1='REAC' BL1 TAB1.MODEPL.(IND.IINCR);                              
  73.       'SI' (IDIM 'EGA' 3);                                                  
  74.         VEC1='VECTEUR' REA1 FX FY FZ AMPVEC ROUG;                          
  75.         'SINON';
  76.         'SI' ('EGA' ('VALE' MODE) 'AXIS');
  77.           VEC1='VECTEUR' REA1 FR FZ AMPVEC ROUG;                             
  78.         'SINON';
  79.           'SI' ('EGA' ('VALE' MODE) 'FOUR');
  80.             VEC1='VECTEUR' REA1 FR FZ FT AMPVEC ROUG;
  81.           'SINON';
  82.             VEC1='VECTEUR' REA1 FX FY AMPVEC ROUG;
  83.           'FINSI';                         
  84.         'FINSI';                         
  85.       'FINSI';                                                              
  86.       DEF1=DEF1 ET                                                          
  87.       ('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR) MINAMPL VEC1 BLEU);           
  88. *  ('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR) AMP1 VEC1 BLEU);              
  89.     'FIN' BOU2;                                                          
  90.   'SINON';                                                                
  91.     IINCR=IINCR0;                                                        
  92.     'REPETER' BOU2 (NBINCR-1);                                           
  93.       IINCR=IINCR+1;                                                        
  94.       DEF1=DEF1 ET                                                          
  95.       ('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR) MINAMPL BLEU);                
  96. *  ('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR) AMP1 BLEU);                   
  97.     'FIN' BOU2;                                                          
  98.   'FINSI';                                                                
  99.   'SI' ('EXISTE' OSCILLE);                                                
  100.     'SI' (IDIM 'EGA' 3);                                                    
  101.       'TRAC' OEIL DEF1 ANIME;                                             
  102.     'SINON';                                                                
  103.       'TRAC' DEF1 ANIME;                                                  
  104.     'FINSI';                                                                  
  105.   'SINON';                                                                
  106.     'SI' (IDIM 'EGA' 3);                                                    
  107.       'TRAC' OEIL DEF1 OSCIL;                                             
  108.     'SINON';                                                                
  109.       'TRAC' DEF1 OSCIL;                                                  
  110.     'FINSI';                                                                  
  111.   'FINSI';                                                                  
  112. 'FINPROC' DEF1;                                                         
  113.  

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