Télécharger ktest_io1.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : ktest_io1.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. **********************************************************
  5. *
  6. * But : Tester le fonctionnement de la sauvegarde
  7. * ---
  8. *
  9. * Jeu de donnees qui cree tous les objets possibles et
  10. * qui les sauve ensuite de 4 manières differentes :
  11. * - en FORMate et en non-formate (binaire);
  12. * - en enumerant tous les objets a sauver par leur
  13. * noms et en utilisant l'operateur SAUV sans
  14. * arguments (il cherche alors a sauver tous les
  15. * objets qui se trovent dans la memoire).
  16. *
  17. **********************************************************
  18.  
  19. opti dime 2 echo 0 ;
  20.  
  21. *** sg 2014/11 : nouveaux noms d'inconnues
  22.  
  23. 'OPTI' 'INCO' 'PP' 'PQ' ;
  24. 'OPTI' 'INCO' ('MOTS' 'QQQQ') ('MOTS' 'QQQQ') ;
  25.  
  26. *** No 0 : Points ...
  27.  
  28. dens 1. ;
  29. p1 = 0 0 ;
  30. p2 = 2 0 ;
  31. p3 = .5 1.5 ;
  32.  
  33. *** No 1 : Meleme ...
  34.  
  35. opti elem seg2 ;
  36. li1 = p1 d 2 p2 ;
  37. li2 = p2 d 2 p3 ;
  38. li3 = p3 d 2 p1 ;
  39. co1 = li1 et li2 et li3 ;
  40.  
  41. opti elem tri3 ;
  42. su1 = co1 surf plan ;
  43.  
  44. *** No 4 : Affecte - n'existe plus
  45.  
  46. *** No 5 : Chamelem - n'existe plus
  47.  
  48. *** No 21 : Modele - n'existe plus
  49.  
  50. *** No 38 : Mmodel ...
  51.  
  52. mo0 = 'VIDE' 'MMODEL' ;
  53.  
  54. mo1 = mode su1 mecanique elastique tri3 ;
  55.  
  56. *** No 39 : Mchaml ...
  57.  
  58. ma1 = mate mo1 youn 2.1e+11 nu 0.3 rho 7850. alph 1.e-5 ;
  59.  
  60. *** No 3 : Rigidite ...
  61.  
  62. ri1 = rigi mo1 ma1 ;
  63. cl1 = bloq depl li1 ;
  64. cltot = cl1 ;
  65. ritot = ri1 et cltot ;
  66. mas1 = mass mo1 ma1 ;
  67.  
  68. *** No 2 : Chpoint ...
  69.  
  70. fo1 = forc FX 1.e+4 p3 ;
  71. de1 = reso ritot fo1 ;
  72.  
  73. *** No 8 : Solution ...
  74.  
  75. OPTION epsilon lineaire;
  76. sol1 = vibr PROCHE (prog 0.) ritot mas1 'SOLU';
  77. * rem bp : objet SOLUTION = objet amene a disparaitre...
  78.  
  79. *** No 10 : Table ...
  80.  
  81. tab1 = vibr PROCHE (prog 0.) ritot mas1 ;
  82.  
  83. *** No 9 : Structure ...
  84.  
  85. st1 = stru ritot mas1 ;
  86.  
  87. *** No 7 : Elemstru ...
  88.  
  89. elst1 = elst st1 p2 ;
  90.  
  91. *** No 6 : Bloqstru ...
  92.  
  93. blst1 = clst st1 cltot ;
  94.  
  95. *** No 11 : Maffec - n'existe plus ?????
  96.  
  97. *** No 12 : Msostu - implicite
  98.  
  99. *** No 13 : Imatri - implicite
  100.  
  101. *** No 14 : Mjonct - implicite
  102.  
  103. *** No 15 : Attache ...
  104.  
  105. att1 = jonc elst1 UX (prog 1.) ;
  106.  
  107. *** No 16 : Mmatri - implicite
  108.  
  109. *** No 17 : Deforme ...
  110.  
  111. def1 = defo li1 de1 1. ;
  112.  
  113. *** No 18 : Listreel ...
  114.  
  115. lr1 = prog 0. 1. ;
  116.  
  117. *** No 19 : Listentier ...
  118.  
  119. le1 = lect 1 ;
  120.  
  121. *** No 22 : Evolution ...
  122.  
  123. ev1 = evol manu 't' lr1 'f(t)' lr1 ;
  124.  
  125. *** No 20 : Chargement ...
  126.  
  127. cha1 = char fo1 ev1 ;
  128.  
  129. *** No 23 : Superelement ...
  130.  
  131. sup1 = supe RIGIDITE ri1 (p1 et p2) ;
  132.  
  133. *** No 24 : Logique ...
  134.  
  135. boo1 = VRAI ;
  136.  
  137. *** No 25 : Flottant - implicite
  138.  
  139. flot1 = pi ;
  140.  
  141. *** No 26 : Entier - implicite
  142.  
  143. ent1 = 732 ;
  144.  
  145. *** No 27 : Mot - implicite
  146.  
  147. mot1 = 'KAKA' ;
  148.  
  149. *** No 28 : Texte ...
  150.  
  151. text1 = text 'Essai de construction d un morceau de texte' ;
  152.  
  153. *** No 29 : Listmots ...
  154.  
  155. lm1 = MOTS UX UY ;
  156.  
  157. *** No 30 : Vecteur ...
  158.  
  159. ve1 = vect fo1 FX FY 1. ROUG ;
  160.  
  161. *** No 31 : Vectdoub - n'existe plus ?????
  162.  
  163. *** No 32 : Points - implicite
  164.  
  165. *** No 33 : Configuration ...
  166.  
  167. conf2 = form de1 ;
  168.  
  169. *** No 34 : Listchpo ...
  170.  
  171. lch1 = suit CHPOINT fo1 de1 ;
  172.  
  173. *** No 35 : Basemoda ...
  174.  
  175. bas1 = BASE st1 att1 sol1 ;
  176.  
  177. *** No 36 : Procedur - implicite
  178.  
  179. *** No 40 : Minte - implicite
  180.  
  181. *** No 41 : Nuage ...
  182.  
  183. nu1 = nuag COMP TEMPERATURE pi COMP TRAC ev1 ;
  184.  
  185. *** No 42 : Matrik - comment le creer (EQEX->EQPR->KMAC) ?????
  186.  
  187. kritot = 'KOPS' 'RIMA' ritot ;
  188. icpri = 'MOTS' 'UX' 'UY' 'LX' ;
  189. icdua = 'MOTS' 'FX' 'FY' 'FLX' ;
  190. kritot = 'CHANGER' 'INCO' kritot icpri icpri icdua icpri ;
  191. kfo1 = 'NOMC' icdua fo1 icpri ;
  192. kmas1 = 'KOPS' 'RIMA' mas1 ;
  193. kde1 = 'KRES' kritot kfo1 ;
  194.  
  195. *** No 37 : Bloc ...
  196.  
  197. repeter bloc1 1 ;
  198.  
  199. *** On testera aussi le fonctionnement de IMPPIL ...
  200.  
  201. * opti impi 6 ;
  202.  
  203. *** Sauvegarde de tous les objets nommes ...
  204.  
  205. opti sauv 'testsauv_noms_B.sortgibi' ;
  206. sauv p1 p2 li1 mo0 mo1 ma1 ca1 ritot mas1 fo1 de1 sol1 tab1 st1
  207. elst1 blst1 att1 def1 lr1 le1 ev1 cha1 sup1 boo1 flot1
  208. ent1 mot1 text1 lm1 ve1 conf2 lch1 bas1 nu1
  209. kritot kmas1 kde1 bloc1 ;
  210.  
  211. opti sauv FORM 'testsauv_noms_F.sortgibi' ;
  212. sauv FORM p1 p2 li1 mo0 mo1 ma1 ca1 ritot mas1 fo1 de1 sol1 tab1 st1
  213. elst1 blst1 att1 def1 lr1 le1 ev1 cha1 sup1 boo1 flot1
  214. ent1 mot1 text1 lm1 ve1 conf2 lch1 bas1 nu1
  215. kritot kmas1 kde1 bloc1 ;
  216.  
  217. *** Sauvegarde de tous les objets dans la memoire ...
  218.  
  219. opti sauv 'testsauv_glob_B.sortgibi' ;
  220. sauv ;
  221.  
  222. opti sauv FORM 'testsauv_glob_F.sortgibi' ;
  223.  
  224. fin bloc1 ;
  225.  
  226. fin ;
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  

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