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