Télécharger la plaquette Cast3M


fr en

Télécharger optidens.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : optidens.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. 'OPTION' 'ECHO' 0 ;
  5. ************************************************************************
  6. * NOM         : OPTIDENS
  7. * DESCRIPTION : Test de 'OPTI' 'DENS' (fiche 7995).
  8. *
  9. *
  10. *
  11. * LANGAGE     : GIBIANE-CAST3M
  12. * AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  13. *               mél : stephane.gounand@cea.fr
  14. **********************************************************************
  15. * VERSION    : v1, 11/03/2014, version initiale
  16. * HISTORIQUE : v1, 11/03/2014, création
  17. * HISTORIQUE :
  18. * HISTORIQUE :
  19. ************************************************************************
  20. *
  21. interact = faux ;
  22. 'OPTION' 'DIME' 3 'ELEM' 'CUB8' ;
  23. *
  24. dini = 'VALEUR' 'DENS' ;
  25. 'MESSAGE' ('CHAINE' 'Valeur par defaut densite : ' dini) ;
  26. dd = 0.05 ;
  27. 'MESSAGE' ('CHAINE' 'dd=' dd) ;
  28. 'OPTI' 'DENS' dd ;
  29. p0 = 'POIN' 0. 0. 0. ; p1 = 'POIN' 1. 0. 0. ;
  30. dro = 'DROIT' p0 p1 ;
  31. ndro = 'NBEL' dro ;
  32. ndrov = 'ENTIER' ('+' ('/' 1. dd) 0.5) ;
  33. 'MESSAGE' ('CHAINE' 'ndro=' ndro) ;
  34. 'MESSAGE' ('CHAINE' 'ndrov=' ndrov) ;
  35. t1 = 'EGA' ndro ndrov ;
  36. *
  37. vv = 'VALEUR' 'DENS' ;
  38. 'MESSAGE' ('CHAINE' 'vv=' vv) ;
  39. t2 = 'EGA' dd vv ('*' dd 1.d-12) ;
  40. *
  41. pp = 'POIN' dro 'PROC' ('BARYCENTRE' dro) ;
  42. tt = 'COORDONNEE' ('+' ('VALEUR' 'DIME') 1) pp ;
  43. 'MESSAGE' ('CHAINE' 'tt=' tt) ;
  44. t3 = 'EGA' dd tt ('*' dd 1.d-12) ;
  45. *
  46. ok = t1 'ET' t2 'ET' t3 ;
  47. *
  48. 'SI' ('NON' ok) ;
  49.    'MESSAGE' ('CHAINE' 'Il y a eu des erreurs') ;
  50.    'ERREUR' 5 ;
  51. 'SINON' ;
  52.    'MESSAGE' ('CHAINE' 'Tout sest bien passe !') ;
  53. 'FINSI' ;
  54. *
  55. 'SI' interact ;
  56.    'OPTION' 'ECHO' 1 ;
  57.    'OPTION' 'DONN' 5 ;
  58. 'FINSI' ;
  59. *
  60. * End of dgibi file OPTIDENS
  61. *
  62. 'FIN' ;
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  

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