3D.dgibi

À propos

Type de fichier

Fichier DGIBI de 2 Ko (text/plain)

Confidentialité

Fichier public, envoyé le 21 avril 2017 à 17:55, depuis l'adresse IP 162.38.x.x (France)

Sécurité

Ne contient aucun Virus ou Malware connus - Dernière vérification: 3 jours

Statistiques

La présente page de téléchargement a été vue 245 fois depuis l'envoi du fichier

Page de téléchargement

https://www.petit-fichier.fr/2017/04/21/3d/   Copier

Aperçu du fichier

*2345678901234567890123456789012345678901234567890112345678901234567890

OPTI TRAC OPEN;

OPTI DIME 3;

TAB = LIRE 'UNV' 'E:\MEF\analyse3D\noraf';

VOL = TAB.'Volume';

*TRAC QUAL VOL;

h=1;

P1 = 0. 0. 0.;
P2 = h 0. 0.;
P3 = 0. h 0.;

P11 = (-1*0.2) 0 0.1;
P22 = (-1*0.2) 0 0;
P33 = (-1*0.2) (-1*0.2) 0;

GEO1 = VOL POIN PLAN P1 P2 P3 0.001;
GEO2 = VOL POIN PLAN P11 P22 P33 0.0001;

*TRAC QUAL (GEO1 ET VOL);
*TRAC QUAL (GEO2 ET VOL);

MODYOU = 200E+9; COMM para;
COEFPOI = 0.3;
 
MOD1 = MODE VOL MECANIQUE ELASTIQUE ISOTROPE;
MAT1 = MATE MOD1 YOUN MODYOU NU COEFPOI; 


CL1 = BLOQ DEPLA ROTA GEO1;
PX = 800; COMM para;
PY = 0; COMM para;
PZ = 0; COMM para;

FOR1 = FORCER FX PX GEO2;
FOR2 = FORCER FZ PZ GEO2;
FOR3 = FORCER FY PY GEO2;
FORT = FOR1 ET FOR2 ET FOR3;

* VISUALISATION VOLUME ET ZONES CL/CHARGEMENT

VEC1 = VECT FORT 1 FX FY FZ ROUG;
*TRAC VEC1 VOL; 


* MATRICE DE RIGIDITE
* -------------------

RIG1 = RIGI MOD1 MAT1;
RIG1 = RIG1 ET CL1;

***************************************
*			 RESOLUTION               *
***************************************

DEPL1 = RESO RIG1 FORT;

***************************************
*          POSTRAITEMENT			  *
***************************************

* VISUALISATION DE LA DEFORMEE
* ----------------------------

DEF0 = DEFO VOL DEPL1 0. BLAN;
DEF1 = DEFO VOL DEPL1 1. BLEU;
*TRAC CACH (DEF0 ET DEF1);

SS   = SIGM MOD1 MAT1 DEPL1;

SSVM = VMIS MOD1 SS;
TRAC DEF1 MOD1 SSVM;

SSYY = EXCO SMYY SS;
*TRAC DEF1 MOD1 SSYY;

SSXY = EXCO SMXY SS;
*TRAC DEF1 MOD1 SSXY;

SSXZ = EXCO SMXZ SS;
*TRAC DEF1 MOD1 SSXZ;

SSZZ = EXCO SMZZ SS;
*TRAC DEF1 MOD1 SSZZ;

PA = (1*0.2) (-1*0.2) h;
PTA = VOL POIN PROC PA ;
DAX = EXTR DEPL1 UX PTA ;

MXSSVM = MAXI SSVM;
MESS(MXSSVM);
MESS(DAX);

fin;

Partager le fichier

Télécharger 3D.dgibi