Télécharger la plaquette Cast3M


fr en

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 1 ;
  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.    sol1 = vibr PROCHE (prog 0.) ritot mas1 'SOLU';
  76. *  rem bp : objet SOLUTION = objet amene a disparaitre...
  77.  
  78. *** No 10 : Table ...
  79.  
  80.    tab1 = vibr PROCHE (prog 0.) ritot mas1 ;
  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 43 : Matrik - comment le creer (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. *** No 43 : Listobje
  194.    lobj1 = enum ;
  195.    lobj1 = lobj1 'ET' ev1 'ET' ev1 ;
  196.    tab1 . 'lob1' = lobj1 ;
  197.    lobj2 = enum ;
  198.    lobj2 = lobj2 'ET' 1 'ET' 2 ;
  199.    lobj3 = enum ;
  200.    lobj3 = lobj3 'ET' tab1 'ET' tab1 ;
  201.    tab1 . 'lob3' = lobj3 ;
  202.    lobj4 = enum ;
  203.    lobj4 = lobj4 'ET' lobj1 'ET' lobj1 ;
  204.    tab1 . 'lob4' = lobj4 ;
  205.  
  206. *** No 37 : Bloc ...
  207.  
  208.   repeter bloc1 1 ;
  209.  
  210. *** On testera aussi le fonctionnement de IMPPIL ...
  211.  
  212. *   opti impi 6 ;
  213.  
  214. *** Sauvegarde de tous les objets nommes ...
  215.  
  216.     opti sauv      'testsauv_noms_B.sortgibi' ;
  217.     sauv      p1 p2 li1 mo0 mo1 ma1 ca1 ritot mas1 fo1 de1 sol1 tab1 st1
  218.               elst1 blst1 att1 def1 lr1 le1 ev1 cha1 sup1 boo1 flot1
  219.               ent1 mot1 text1 lm1 ve1 conf2 lch1 bas1 nu1
  220.               kritot kmas1 kde1 lobj1 lobj2 lobj3 lobj4 bloc1 ;
  221.  
  222.     opti sauv FORM 'testsauv_noms_F.sortgibi' ;
  223.     sauv FORM p1 p2 li1 mo0 mo1 ma1 ca1 ritot mas1 fo1 de1 sol1 tab1 st1
  224.               elst1 blst1 att1 def1 lr1 le1 ev1 cha1 sup1 boo1 flot1
  225.               ent1 mot1 text1 lm1 ve1 conf2 lch1 bas1 nu1
  226.               kritot kmas1 kde1 lobj1 lobj2 lobj3 lobj4 bloc1 ;
  227.  
  228. *** Sauvegarde de tous les objets dans la memoire ...
  229.  
  230.     opti sauv      'testsauv_glob_B.sortgibi' ;
  231.     sauv      ;
  232.  
  233.     opti sauv FORM 'testsauv_glob_F.sortgibi' ;
  235.  
  236.   fin bloc1 ;
  237.  
  238. fin ;
  239.  
  240.  
  241.  
  242.  
  243.  

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