*parametre dimensionnel TITR'table 3d'; OPTI DIME 3 ELEM CUB8; densite 0.5; * ++++++++++++++ * +MODELISATION+ * ++++++++++++++ *points P1=0. 0. 0.720; P2=1.35 0. 0.720; P3=1.35 0.600 0.720; P4=0. 0.600 0.720; V1=0.09 0.47 0.72; V2=0.09 0.40 0.72; V3=0.09 0.33 0.72; V4=1.26 0.47 0.72; V5=1.26 0.40 0.72; V6=1.26 0.33 0.72; V7=0.675 0.47 0.72; vtot=V1 et V2 et V3 et V4 et V5 et V6 et V7 coul jaune; *lignes P1P2=P1 droi 20 P2; P2P3=P2 droi 20 P3; P3P4=P3 droi 20 P4; P4P1=P4 droi 20 P1; *surfaces surf1=dall P1P2 P2P3 P3P4 P4P1; elim 0.001 surf1; vol1=surf1 volu 100 trans(0. 0. 0.023); trac surf1 qual; vtout=vol1 et vtot; *tracer le cercle du tube contre la table *0.27=.60-.09-.24 T0=0.09 0.27 0.72; C1=0.09 0.27 0.70; T1=0.07 0.27 0.70; T2=0.09 0.27 0.68; T3=0.11 0.27 0.70; ligne1=cerc 10 T0 C1 T1 coul rouge; ligne2=cerc 10 T1 C1 T2 coul rouge; ligne3=cerc 10 T2 C1 T3 coul rouge; ligne4=cerc 10 T3 C1 T0 coul rouge; cercle1= ligne1 et ligne2 et ligne3 et ligne4; tube1= cercle1 10 trans (0. 0.24 0.); s1=0.675 0.0 0.0; s2=0.675 0.69 0.0; s3=0.675 0.69 -0.30; tube2= tube1 syme 'PLAN' s1 s2 s3; *tracer tube montant remontant incliné en appui simple sur le sol *0.09 car 0.33-0.24 C5=0.09 0.127 0.557; D2=0.09 0.107 0.557; D3=0.09 0.147 0.557; D4=0.07 0.127 0.557; D5=0.11 0.127 0.557; ligne5=cerc 10 D2 C5 D4 coul bleu; ligne6=cerc 10 D4 C5 D3 coul bleu; ligne7=cerc 10 D3 C5 D5 coul bleu; ligne8=cerc 10 D5 C5 D2 coul bleu; cercle2=ligne5 et ligne6 et ligne7 et ligne8; tube3= cercle2 10 trans (0. -0.04 -0.557); tout= vtout et tube1 et tube2 et tube3; Trac qual tout; *tracer la courbe du montant reliant à tube1 (ou tube2) C8=0.09 0.13 0.557; C9=0.09 0.2856 0.555; C1=0.09 0.27 0.70; ligne9=cerc 10 C1 C9 C8 coul vert; tout1=ligne9 et tout; vect1= 0. 0.04 0.557; cercle4= cercle2 plus vect1; *point pour axe de rota C11=0.09 0.27 0.557; C10=0.11 0.27 0.557; surf2= cercle1 rota 10 90. C11 C10 coul bleu; tout2=tout1 et surf2; elim 0.0001 tout2; *tube en travers E a mi hauteur CE=0.09 0.127 0.557; E1=0.09 0.127 0.5445; E2=0.09 0.1395 0.557; E3=0.09 0.127 0.5695; E4=0.09 0.1145 0.557; ligneE1=cerc 10 E1 CE E2 coul rouge; ligneE2=cerc 10 E2 CE E3 coul rouge; ligneE3=cerc 10 E3 CE E4 coul rouge; ligneE4=cerc 10 E4 CE E1 coul rouge; cercleE=ligneE1 et ligneE2 et ligneE3 et ligneE4; tubeE= cercleE 10 trans (1.17 0. 0.); *tube en travers F contre table CF=0.09 0.47 0.70; F1=0.09 0.4575 0.70; F2=0.09 0.47 0.6875; F3=0.09 0.4825 0.70; F4=0.09 0.47 0.7125; ligneF1=cerc 10 F1 CF F2 coul rouge; ligneF2=cerc 10 F2 CF F3 coul rouge; ligneF3=cerc 10 F3 CF F4 coul rouge; ligneF4=cerc 10 F4 CF F1 coul rouge; cercleF=ligneF1 et ligneF2 et ligneF3 et ligneF4; tubeF= cercleF 10 trans (1.17 0. 0.); tout3=tout2 et tubeE et tubeF; *symétrie s4=0.675 0.0 0.0; s5=0.675 0.60 0.0; s6=0.675 0.60 0.72; montant1=tube3 et tubeE et surf2; montant2= montant1 syme 'PLAN' s4 s5 s6; tout4=tout3 et montant2 et montant1; elim 0.0001 tout4; trac tout4; *tube houblon courbé G reliant les appuis vect2=0. -0.0349731 -0.487; vect3=0. 0. 0.015; vect31=0. 0. -0.015; vect4=-0.01 0. 0.0075; vect5=0. 0. 0.004583; vect6=0. 0. -0.004583; G0=C5 PLUS vect2; G01=G0 PLUS vect5; G02=G0 PLUS vect6; G1=G0 PLUS vect3; G2=G0 PLUS vect4; G3=G2 PLUS vect31; G4=G0 PLUS vect31; ligneG1=cerc 10 G1 G01 G2; ligneG2=G2 droi 10 G3 ; ligneG3=cerc 10 G3 G02 G4; arc1= ligneG1 et ligneG2 et ligneG3 coul rouge; arc2= arc1 syme 'POINT' G0 coul rouge; houblon= arc1 et arc2; *extrusion du houblon vect7=0. 0.215 -2.0131; vect8=0.1 0. 0.; G05=G0 PLUS vect7; G04=G05 PLUS vect8; surf3= houblon rota 10 -12. G05 G04 coul rouge; tout5=surf3 et tout4; elim 0.0001 tout5; *pied J: appui simple J=C5 PLUS (0. 0.36 -0.557); J1=J PLUS (0. -0.01 0.); J2=J PLUS (-0.01 0. 0.); J3=J PLUS (0. 0.01 0.); J4=J PLUS (0.01 0. 0.); ligneJ1=cerc 10 J1 J J2 coul bleu; ligneJ2=cerc 10 J2 J J3 coul bleu; ligneJ3=cerc 10 J3 J J4 coul bleu; ligneJ4=cerc 10 J4 J J1 coul bleu; cercleJ=ligneJ1 et ligneJ2 et ligneJ3 et ligneJ4; tubeJ= cercleJ 10 trans (0. 0. 0.075); elim 0.0001 tubeJ; syme1=tubeJ et surf2 et surf3; syme2=syme1 syme 'PLAN' s1 s2 s3; tubetot=syme1 et tube1 et tube2 et tube3 et montant2 et montant1; tubetout=tubetot et surf2 et surf3 et tubeE et tubeF et tubeJ et syme2; tout7=tubetout et vtout; elim 0.0001 tout7; trac tout7; *caractéristiques mopot=mode tubetout mecanique elastique poutre; modall=mode surf1 mecanique elastique coq4; motot=mopot et modall; igy=(b ** 4)/ 12; tor= 2.25 *(b ** 4); igy2=(b2 *(h2 ** 3)) / 12; igz2=(h2 *(b2 ** 3))/12; alp=b2/h2; tor2= h2 *(b2 ** 3)*(16/ 3-(3.36 * alp *(1-((alp ** 4)/ 12)))); H=3; L=4; E=0.25; b=0.3; H2=0.4; B2=0.2; densite 0.5; mapot=mate mopot youn 30.E9 Nu 0.005 sect (b ** 2) rho 7800; inry igy inrz igy tors tor 'VECT'(-1. 0. 0.); madall=mate modall youn 30.E9 Nu 0.2 epai 0.023 rho 500; rig1=rigi mopot mapot; rig2=rigi modall madall; mass1=mass mopot mapot; mass2=mass modall madall; CHG=manu chpo tout uz -9.81; FG=mass1*chg; BLO1=BLOQ (P0 ET P1 ET P2 ET P3) DEPL ROTA; RITOT=RIG1 ET BLO1; PRESS1=PRESS COQU MODALL 1.5e3 (0. 0. -1.); FTOT=FG ET PRESS1; DEP1=RESOU RITOT FTOT; def1=defo dep1 tout; sig1=sigma dep1 motot matot; trac sig1 motot matot def1; *fin du fichier fin;