FINISH/CLEAR/FILNAME,rm4ABA = 60ABA2 = 30H = 6000ALTURA = 200ESP = 8DESLOC = 20/PREP7ET,1,SHELL181R,1,ESP,ESP,ESP,ESPMP,EX,1,205000 ! Propriedades do material - mdulo de elasticidade ou young (MPa)MP,PRXY,1,0.3 ! Propriedades do material - coeficiente de poissonTB,BISO,1,1,2, TBTEMP,0TBDATA,,250,10,,,, /VIEW,1,1,1,1 /ANG,1 K,1,0,0,-ABAK,2,0,0,0K,3,ALTURA,0,0K,4,ALTURA,0,-ABAK,5,0,H,-ABAK,6,0,H,0K,7,ALTURA,H,0K,8,ALTURA,H,-ABA!K,9,ABA2,0,-ABA!K,10,ABA2,H,-ABA!K,11,ALTURA-ABA2,0,-ABA!K,12,ALTURA-ABA2,H,-ABAL,1,2L,2,3L,3,4L,5,6L,6,7L,7,8L,1,5L,2,6L,3,7L,4,8!L,1,9!L,9,10!L,10,5!L,4,11!L,11,12!L,12,8AL,1,4,7,8AL,2,5,8,9AL,3,6,9,10!AL,11,12,13,7!AL,10,14,15,16AGEN,2,1,3,2,,,-ABAAGEN,2,2,,,,,-2*ABANUMMRG,KPLESIZE,ALL,20, , , ,1, , ,1,AMESH,ALLEPLOT*GET,NODMAX,NODE,,COUNTNN1=NODMAX+1NN2=NODMAX+2NN1X=ALTURA/2NN1Y=HNN1Z=-ABANN2X=ALTURA/2NN2Y=0NN2Z=-ABAN,NN1,NN1X,NN1Y,NN1Z ! gera no no centro da coluna N,NN2,NN2X,NN2Y,NN2Z ! gera no no centro da coluna NPLOTNSEL,S,LOC,Y,H-0.01,H+0.01 ! seleciona os nos pertencentes ao topo da colunaCM,NODES_UP,NODE ! nomeia esses nosallsel,allNSEL,S,LOC,Y,0,0 ! seleciona os nos pertencentes a base da colunaCM,NODES_DOWN,NODE ! nomeia esses nosallsel,all ET,2,MASS21 ! cria elemento de massa TYPE,2 R,5REAL,5e,NN1 ! define elemento por conectividade de noe,NN2cmsel,s,NODES_UPnsel,a,,,NN1 ! adiciona a selecao o no NN1cerig,NN1,all ! define uma regiao rigidaallselcmsel,s,NODES_DOWNnsel,a,,,NN2 ! adiciona a selecao o no NN2cerig,NN2,all ! define uma regiao rigidaallselFINISH ! Fecha /PREP7/SOLUANTYPE,STATICPSTRES,OND,NN1,ALLDDELE,NN1,UYD,NN2,ALLF,NN1,FY,-1SOLVEFINISH/SOLU ANTYPE,BUCKLEBUCOPT,LANB,1 SOLVEFINISH/SOLU EXPASS,ONMXPAND,1 SOLVEFINISH/POST1 SET,LISTSET,LAST/VIEW,1,1,1,1 /ANG,1 /REP,FAST PLDISP!###########################################################################################!DEININDO A IMPERFEIO MXIMA!###########################################################################################*GET,PCR,ACTIVE,,SET,TIME ! CARGA PCR = save,rm4,db*GET,NCOUNT,NODE,,COUNT*DIM,IMP,,NCOUNT,3*DO,I,1,NCOUNT IMP(I,1)=UX(I) IMP(I,2)=UY(I) IMP(I,3)=UZ(I)*ENDDO*vscfun,uxmax,max,imp(1,1)*vscfun,uymax,max,imp(1,2)*vscfun,uzmax,max,imp(1,3)FINI/PREP7CSYS,0DSYS,0!###########################################################################################! INTRODUO DA IMPERFEIO ==> FACT= AMPLITUDE DA IMPERFEIO MXIMA!###########################################################################################T=1*IF,uxmax,GT,uymax,AND,uxmax,GT,uzmax,THEN fact=T*uxmax *ELSEIF,uymax,GT,uxmax,AND,uymax,GT,uzmax,THEN fact=T*uymax *ELSE fact=T*uzmax*ENDIF allselupgeom,fact,1,1,rm4,rst/SOLUFDELE,NN1,FYD,NN1,UY,-DESLOCANTYPE,0NLGEOM,1NSUBST,2*DESLOC,4*DESLOC,DESLOC OUTRES,ERASEOUTRES,ALL,ALL AUTOTS,1TIME,DESLOC CNVTOL,U, ,0.001,2, , SOLVESAVE