* fichier : soravs.dgibi ************************************************************************ ************************************************************************ ********************************************************* * * Test du fonctionnement de la directive SORT 'AVS' et * de l'opérateur LIRE 'AVS'. On effectue les deux * opérations et on vérifie que le CHPOINT lu est égal * à celui qui a été écrit. * * Auteur : M. Bulik * * Date : Septembre '95 * ********************************************************* *** options générales ... *** noeuds ... p1 = 0 0 0 ; p2 = 1 0 0 ; *** lignes ... li1 = p1 d 1 p2 ; *** surfaces ... *** volumes ... *** Modèle ... *** Matériau ... *** Rigidité et CL ... ritot = ri1 et cl1 ; *** Chargement ... *** Résolution ... *** Les contraintes ... *** la sortie AVS ... valtemp = 1.23456789 ; de2 = 2 * de1 ; si2g = 2 * si1g ; *** La lecture AVS ... *** La comparaison ... chpodiff = de1redu - (tblect1 . LECHPOIN) ; erreur 5 ; finsi ; * chamdiff = si1g + (-1 * (tblect . LEMCHAML)) ; * list (abs (maxi chamdiff)) ; * si ((abs (maxi chamdiff)) > 1.e-10) ; * erreur 5 ; * finsi ; valdiff = abs (valtemp - (tblect1 . 'time')); list valdiff ; si(valdiff > 1.e-7) ; erreur 5 ; finsi ; chpodiff = de2redu - (tblect2 . LECHPOIN) ; erreur 5 ; finsi ; *** Bye ... fin ;
© Cast3M 2003 - Tous droits réservés.
Mentions légales