* fichier : four1.dgibi ************************************************************************ ************************************************************************ * Test Four1.dgibi: Jeux de données * * --------------------------------- * * * ******************************************************* * Test four1.dgibi: Jeux de données * * --------------------------------- * ******************************************************* * SI GRAPH = N PAS DE GRAPHIQUE AFFICHE * SINON SI GRAPH DIFFERENT DE N TOUS * LES GRAPHIQUES SONT AFFICHES GRAPH = 'N' ; SAUT PAGE; SI (NEG GRAPH 'N') ; SINO ; FINSI ; SAUT PAGE; ******************************************************* * TEST FOUR1 * * CYLINDRE INFINI SOUS PRESSION EXTERNE(NU=0) * * Soit un cylindre infini soumis à une pression externe * * Une analyse de flambage permet de déterminer la charge critique * associée au deuxième mode de Fourier de la structure : * (u = u°*cos(2*Teta) ) * * Le calcul est fait deux fois * 1- Avec les précontraintes dues à la pression externe * 2- Avec en plus la prise en compte des forces suiveuses (Evolution * des efforts de pression avec le déplacement de la structure) * ******************************************************* TITRE 'CYLINDRE INFINI SOUS PRESSION EXTERNE'; TEMPS ; * *----------- CONSTRUCTION DE LA GEOMETRIE ------------- * PA=1000. 0.;PB=1000. 100.;PO1=0. 0.;PO2=0. 100.; CYL = PA D 4 PB; * SI (NEG GRAPH 'N'); FINSI; * * *--- DECLARATION DE FOURIER NOHARM POUR LES OBJETS ---- *------- QUI SERONT UTILISES POUR PLUSIEURS ---------- *--------------- NUMEROS D'HARMONIQUE ----------------- * * * *-------- CONDITIONS AUX LIMITES SYMETRIQUES ---------- * CDL = SYMB ET SYMH; * *----------- MATERIAU ET CARACTERISTIQUES ------------- * MAT = MAT ET CAR ; * *----------- DECLARATION DE FOURIER MODE 0 ------------ *----------- POUR LE CALCUL DES CONTRAINTES ----------- * MOD1 = MOD1 ET MOP ; MAT = MAT ; * AAA = RIG ET CDL ET RIGADD ; SIG=SIGMA U MOD1 MAT; * *----------- DECLARATION DE FOURIER MODE 2 ------------ *------------ POUR L'ANALYSE DE FLAMBAGE -------------- * * * *------- RECHERCHE DE LA 1ERE FREQUENCE PROPRE -------- * W1 = MODF . MODES . 1 . FREQUENCE; ERR1 = 100*(ABS((2E-5/3) - LAMBDA1)/(2E-5/3)); W2 = MODF . MODES . 1 . FREQUENCE; ERR2 = 100*(ABS(5E-6 - LAMBDA2)/5E-6 ); SAUT PAGE ; MESS ' SOIT UN ECART DE : ' ERR1 '%' ; MESS ' SOIT UN ECART DE : ' ERR2 '%' ; TEMPS ; *------------- CODE DE FONCTIONNEMENT ---------------- SI (ERRMAX < 2e-5 ); SINON ; FINSI; FIN;
© Cast3M 2003 - Tous droits réservés.
Mentions légales