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 données qui créé tous les objets possibles et
  10. * qui les sauve ensuite de 4 manières différentes :
  11. * - en FORMaté et en non-formaté (binaire);
  12. * - en énumérant tous les objets à sauver par leur
  13. * noms et en utilisant l'opérateur SAUV sans
  14. * arguments (il cherche alors à sauver tous les
  15. * objets qui se trovent dans la mémoire).
  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 ;
  77.  
  78. *** No 10 : Table ...
  79.  
  80. tab1 = vibr PROCHE (prog 0.) ritot mas1 TBAS ;
  81.  
  82. *** No 9 : Structure ...
  83.  
  84. st1 = stru ritot mas1 ;
  85.  
  86. *** No 7 : Elemstru ...
  87.  
  88. elst1 = elst st1 p2 ;
  89.  
  90. *** No 6 : Bloqstru ...
  91.  
  92. blst1 = clst st1 cltot ;
  93.  
  94. *** No 11 : Maffec - n'existe plus ?????
  95.  
  96. *** No 12 : Msostu - implicite
  97.  
  98. *** No 13 : Imatri - implicite
  99.  
  100. *** No 14 : Mjonct - implicite
  101.  
  102. *** No 15 : Attache ...
  103.  
  104. att1 = jonc elst1 UX (prog 1.) ;
  105.  
  106. *** No 16 : Mmatri - implicite
  107.  
  108. *** No 17 : Deforme ...
  109.  
  110. def1 = defo li1 de1 1. ;
  111.  
  112. *** No 18 : Listreel ...
  113.  
  114. lr1 = prog 0. 1. ;
  115.  
  116. *** No 19 : Listentier ...
  117.  
  118. le1 = lect 1 ;
  119.  
  120. *** No 22 : Evolution ...
  121.  
  122. ev1 = evol manu 't' lr1 'f(t)' lr1 ;
  123.  
  124. *** No 20 : Chargement ...
  125.  
  126. cha1 = char fo1 ev1 ;
  127.  
  128. *** No 23 : Superelement ...
  129.  
  130. sup1 = supe RIGIDITE ri1 (p1 et p2) ;
  131.  
  132. *** No 24 : Logique ...
  133.  
  134. boo1 = VRAI ;
  135.  
  136. *** No 25 : Flottant - implicite
  137.  
  138. flot1 = pi ;
  139.  
  140. *** No 26 : Entier - implicite
  141.  
  142. ent1 = 732 ;
  143.  
  144. *** No 27 : Mot - implicite
  145.  
  146. mot1 = 'KAKA' ;
  147.  
  148. *** No 28 : Texte ...
  149.  
  150. text1 = text 'Essai de construction d un morceau de texte' ;
  151.  
  152. *** No 29 : Listmots ...
  153.  
  154. lm1 = MOTS UX UY ;
  155.  
  156. *** No 30 : Vecteur ...
  157.  
  158. ve1 = vect fo1 FX FY 1. ROUG ;
  159.  
  160. *** No 31 : Vectdoub - n'existe plus ?????
  161.  
  162. *** No 32 : Points - implicite
  163.  
  164. *** No 33 : Configuration ...
  165.  
  166. conf2 = form de1 ;
  167.  
  168. *** No 34 : Listchpo ...
  169.  
  170. lch1 = suit CHPOINT fo1 de1 ;
  171.  
  172. *** No 35 : Basemoda ...
  173.  
  174. bas1 = BASE st1 att1 sol1 ;
  175.  
  176. *** No 36 : Procedur - implicite
  177.  
  178. *** No 40 : Minte - implicite
  179.  
  180. *** No 41 : Nuage ...
  181.  
  182. nu1 = nuag COMP TEMPERATURE pi COMP TRAC ev1 ;
  183.  
  184. *** No 42 : Matrik - comment le créer (EQEX->EQPR->KMAC) ?????
  185.  
  186. kritot = 'KOPS' 'RIMA' ritot ;
  187. icpri = 'MOTS' 'UX' 'UY' 'LX' ;
  188. icdua = 'MOTS' 'FX' 'FY' 'FLX' ;
  189. kritot = 'CHANGER' 'INCO' kritot icpri icpri icdua icpri ;
  190. kfo1 = 'NOMC' icdua fo1 icpri ;
  191. kmas1 = 'KOPS' 'RIMA' mas1 ;
  192. kde1 = 'KRES' kritot kfo1 ;
  193.  
  194. *** No 37 : Bloc ...
  195.  
  196. repeter bloc1 1 ;
  197.  
  198. *** On testera aussi le fonctionnement de IMPPIL ...
  199.  
  200. * opti impi 6 ;
  201.  
  202. *** Sauvegarde de tous les objets nommés ...
  203.  
  204. opti sauv 'testsauv_noms_B.sortgibi' ;
  205. sauv p1 p2 li1 mo0 mo1 ma1 ca1 ritot mas1 fo1 de1 sol1 tab1 st1
  206. elst1 blst1 att1 def1 lr1 le1 ev1 cha1 sup1 boo1 flot1
  207. ent1 mot1 text1 lm1 ve1 conf2 lch1 bas1 nu1
  208. kritot kmas1 kde1 bloc1 ;
  209.  
  210. opti sauv FORM 'testsauv_noms_F.sortgibi' ;
  211. sauv FORM p1 p2 li1 mo0 mo1 ma1 ca1 ritot mas1 fo1 de1 sol1 tab1 st1
  212. elst1 blst1 att1 def1 lr1 le1 ev1 cha1 sup1 boo1 flot1
  213. ent1 mot1 text1 lm1 ve1 conf2 lch1 bas1 nu1
  214. kritot kmas1 kde1 bloc1 ;
  215.  
  216. *** Sauvegarde de tous les objets dans la mémoire ...
  217.  
  218. opti sauv 'testsauv_glob_B.sortgibi' ;
  219. sauv ;
  220.  
  221. opti sauv FORM 'testsauv_glob_F.sortgibi' ;
  222.  
  223. fin bloc1 ;
  224.  
  225. fin ;
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  

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