Télécharger la plaquette Cast3M


fr en

Télécharger normalisation-2.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  normalisation-2.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. *** Options ...
  6.  
  7.     opti dime 2 mode plan defo echo 1 ;
  8.  
  9.     critprec = 1.e-14 ;
  10.  
  11. *** Points ...
  12.  
  13.     dens 1. ;
  14.  
  15.     p1 = 0 0 ;
  16.     p2 = 1 0 ;
  17.     p3 = 0.5 0.7 ;
  18.     li1 = manu seg2 p1 p2 ;
  19.     ma1 = manu tri3 p1 p2 p3 ;
  20.  
  21. *** Raideurs ...
  22.  
  23.     mo1 = mode ma1 mecanique elastique ;
  24.     ma1 = mate mo1 YOUN 1. NU 0.3 ;
  25.     ri1 = (rigi mo1 ma1) et (bloq depl li1) ;
  26.  
  27. *** Force ...
  28.  
  29.     fo1 = forc FX 1 FY 1 p3 ;
  30.  
  31. *** Première résolution ...
  32.  
  33.     de1 = enle (reso ri1 fo1) 'LX' ;
  34. list de1 ;
  35.  
  36. *** Deuxième, avec norm auto ...
  37.  
  38.     opti norm AUTO ;
  39.  
  40.     ri2 = 1 * ri1 ;
  41.     de2 = enle (reso ri2 fo1) 'LX' ;
  42.     dd = abs (de2 - de1) ;
  43.     si((maxi dd) > critprec) ;
  44.        erre 5 ;
  45.     finsi ;
  46.  
  47. *** Troisième, avec normalisation des primales ...
  48.  
  49.     opti norm (mots UX UY) (prog 2 3) ;
  50.     ri3 = 1 * ri1 ;
  51.     de3 = enle (reso ri3 fo1) 'LX' ;
  52.     dd = abs (de3 - de1) ;
  53.     si((maxi dd) > critprec) ;
  54.        erre 5 ;
  55.     finsi ;
  56.  
  57. *** Quatrième, avec normalisation des primales et des duales ...
  58.  
  59.     opti norm (mots UX UY) (prog 2 3) 
  60.               (mots FY FX) (prog 5 4) ;
  61.  
  62.     ri4 = 1 * ri1 ;
  63.     de4 = enle (reso ri4 fo1) 'LX' ;
  64.     dd = abs (de4 - de1) ;
  65.     si((maxi dd) > critprec) ;
  66.        erre 5 ;
  67.     finsi ;
  68.  
  69. *** Bye ...
  70.  
  71.     fin ;
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  

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