
!*********************************************************
!*                    ʽռ
!******************************ע***********************
!øս(ͽ½ӣ֣ñBEAM44
!ܿڸH=12M =32M ߴ64*30M
!*********************************************************
FINI
/CLE
/FILNAME,EX
/TITLE,THE ANALYSIS OF THE  MSGJ
!*********************ģͼβ*************************
*SET,H,12                                  !ܿڸ12M              
*SET,H1,10                                 ! 10M
*SET,B,32                                  !32M
*SET,L,64                                  !ݿ64M
  
!*********************ģͲϲ************************* 
*SET,E_LZ,2.1E11                            !ģPA
*SET,U_LZ,0.3                               !ɱ
*SET,DENS_LZ,7800 		            !ܶȣKG/M^-3

*SET,E_LT_SQ,2.1E11                         !ģPA
*SET,U_LT_SQ,0.3                            !ɱ
*SET,DENS_LT_SQ,7800 		            !ܶȣKG/M^-3

*SET,E_XC,2.1E11                            !ģPA
*SET,U_XC,0.3                               !ɱ
*SET,DENS_XC,7800 		            !ܶȣKG/M^-3
*SET,INI_STRAIN,0.00314                     !ʼӦ


!
*set,dampration,0.02
*set,FREQ1,3.0215
*set,mp_betad,dampration/(acos(-1)*FREQ1)


/PREP7                                   
!õԪ
ET,1,44                                     !BEAM44
ET,2,188                                    !BEAM188
ET,3,10                                     !˵ԪLINK80
ET,200,82                                   !PLANE82Ԫ

!*****************************************************
!
MP,EX,1,E_LZ                                !ģ 
MP,PRXY,1,U_LZ                              !ɱ
MP,DENS,1,DENS_LZ                           !ܶ

! ǽ ɽǽĲ
MP,EX,2,E_LT_SQ                             !ģ 
MP,PRXY,2,U_LT_SQ                           !ɱ
MP,DENS,1,DENS_LT_SQ                        !ܶ

!б֧Ų                   
MP,EX,3,E_XC                                !ģ                               
MP,PRXY,3,U_XC                              !ɱ
MP,DENS,1,DENS_XC                           !ܶ


mp,damp,1,mp_betad
mp,damp,2,mp_betad
mp,damp,3,mp_betad

!**********************ʵ******************************************
!********************ɽǽԶ***********************
!Զ
RECTNG,0,0.5.0,0,0.3,                        !ɾ
CYL4,0.14,0.125,0.09,-180,                   !°Բ
CYL4,0.14,0.175,0.09,180,                    !ϰԲ
CYL4,0.36,0.125,0.09,-180,                   !°Բ
CYL4,0.36,0.175,0.09,180,                    !ϰԲ
RECTNG,0.05,0.23,0.125,0.175,                !Ӿ
RECTNG,0.27,0.45,0.125,0.175,                !ұӾ
ASEL,U,,,1                                   !ڵǰѡвѡ1                                 
CM,AREA0,AREA                                !漯AREA0
ALLSEL,ALL                                   !ѡԪ
ASBA,1,AREA0                                 !
ESIZE,0.04                                   !ƽ滮ֳߴ
TYPE,200                                     !ѡԪ
AMESH,ALL                                    !
SECWRITE,USERBEAM,SECT,,200                  !дû
ACLEAR,ALL                                   !
ADELE,ALL,,1                                 !ɾ漰Ԫ
LDELE,ALL,,,1                                !ɾ߼Ԫ
!--------------------------------
SECTYPE,200,BEAM,MESH,SECT1                  !ɽָ
SECOFFSET,CENT,,,                            !ƫ
SECREAD,'USERBEAM','SECT',' ',MESH           !û 
ESIZE,,5                                     !޸

!õԪеĽ湤188
SECTYPE,1,BEAM,I                              !幤
SECOFFSET,CENT                                !ƫ
SECDATA,0.3,0.3,0.3,0.02,0.02,0.012           !

!ǽõԪеĽ湤188 
SECTYPE,2,BEAM,I                               !幤
SECOFFSET,CENT                                 !ƫ
SECDATA,0.3,0.3,0.3,0.02,0.02,0.012            !


!ʵ
R,1,1.652E-2,8.16667E-4,1.42198E-3,0.35,0.175,0,          !1αIڵ
RMODIF,1,7,1.7187E-2,8.16667E-4,1.74344E-3,0.38335,0.175  !1αJڵ

R,2,1.7187E-2,8.16667E-4,1.74344E-3,0.38335,0.175,        !2αIڵ
RMODIF,2,7,1.7853E-2,8.16667E-4,2.10287E-3,0.41665,0.175, !2αJڵ

R,3,1.7853E-2,8.16667E-4,2.10287E-3,0.41665,0.175,        !3αIڵ
RMODIF,3,7,1.852E-2,8.16667E-4,2.50283E-3,0.45,0.175,     !3αJڵ

R,4,1.852E-2,8.16667E-4,2.50283E-3,0.45,0.175,            !4αIڵ
RMODIF,4,7,1.9187E-2,8.16667E-4,2.9443E-3,0.48335,0.175,  !4αJڵ
  
R,5,1.9187E-2,8.16667E-4,2.9443E-3,0.48335,0.175,         !5αIڵ
RMODIF,5,7,1.9853E-2,8.16667E-4,3.428E-3,0.51665,0.175,   !5αJڵ
 
R,6,1.9853E-2,8.16667E-4,3.428E-3,0.51665,0.175,          !6αIڵ
RMODIF,6,7,1.9853E-2,8.16667E-4,3.428E-3,0.51665,0.175,   !6αJڵ
 
R,7,2.252E-2,8.16667E-4,5.82412E-3,0.65,0.175,0,          !7αIڵ
RMODIF,7,7,2.027E-2,0.000816667,3.75E-3,0.5375,0.175,0,   !7αJڵ
R,8,2.027E-2,8.16667E-4,3.75E-3,0.5375,0.175,             !8αIڵ
RMODIF,8,7,1.9145E-2,0.000816667,2.922E-3,0.48125,0.175,0 !8αJڵ

R,9,1.9145E-2,8.16667E-4,2.922E-3,0.48125,0.175,          !9αIڵ
RMODIF,9,7,1.802E-2,8.16667E-4,2.1992E-3,0.425,0.175,0    !9αJڵ

R,10,1.3808E-2,6E-4,1.6564E-3,0.425,0.15,                 !10αIڵ
RMODIF,10,7,1.3808E-2,6E-4,1.6564E-3,0.425,0.15,          !10αJڵ

R,11,INI_STRAIN                                          !ʼӦ








!ɹؼ
K,1,-B/2,0                                              !1Źؼ
K,2,-B/2,H1/6,0                                         !2Źؼ
K,3,-B/2,(H1/6)*2,0                                     !3Źؼ
K,4,-B/2,(H1/6)*3,0                                     !4Źؼ
K,5,-B/2,(H1/6)*4,0                                     !5Źؼ
K,6,-B/2,(H1/6)*5,0                                     !6Źؼ
K,7,-B/2,(H1/6)*6,0                                     !7Źؼ
K,8,-3*B/8,H1+(H-H1)/4                                    !8Źؼ
K,9,-B/4,H1+2*(H-H1)/4,0                                !9Źؼ
K,10,-B/8,H1+3*(H-H1)/4,0                               !10Źؼ
K,11,-0,H,0                                             !11Źؼ


*DO,I,1,10,1                                            !ѭ                    
L,I,I+1                                                 !
*ENDDO                                                  !ѭ



*DO,I,1,10,1                                             !ѭ 
LSEL,S,,,I                                               !ѡ
LATT,1,I,1                                               !
*ENDDO                                                   !ѭ
ALLSEL                                                   !ѡԪ
LMESH,ALL                                                !
/ESHAPE,1,ON
/REPLOT
LGEN,6,ALL,,,,,8,100                                     !ÿZƫ8M100

!

*DO,I,3,11,1                                             !ѭ 
*DO,J,1,5,1                                              !ѭ 
*IF,I,EQ,4,OR,I,EQ,6,THEN                                !ж
  I=I+1                                                  !
  *ENDIF                                                 !
L,I+(J-1)*100,I+J*100                                    !
LATT,2,,2,,,,1                                           !
*ENDDO                                                   !ѭ
*ENDDO                                                   !ѭ
LSEL,ALL                                                 !ѡ                     
LSEL,S,TYPE,,2                                           !õԪѡ
ESIZE,,5                                                 !ָ
LMESH,ALL                                                !ֵǰѡ

!ǽ      BEAM188
KSEL,S,,,501,505,2                                       !ѡؼ
KGEN,5,ALL,,,4,,,100                                     !ƹؼÿXƫ4M100  
*DO,I,503,505,2                                          !ѭ 
*DO,J,1,4,1                                              !ѭ 
L,(J-1)*100+I,J*100+I                                    !
LATT,2,,2,,,,2                                           !
*ENDDO                                                   !ѭ
*ENDDO                                                   !ѭ
LSEL,ALL                                                 !ѡ
LSEL,S,TYPE,,2                                           !õԪѡ
LSEL,R,SEC,,2                                            !ýѡ
LMESH,ALL                                                !ֵǰѡ


!ɽǽԶ棩BEAM44
*DO,I,601,901,100                                        !ѭ
*DO,J,1,2,1                                              !ѭ
L,(J-1)*2+I,J*2+I                                        !
LATT,2,,2,,,,200                                         !
*ENDDO                                                   !ѭ
*ENDDO                                                   !ѭ
ALLSEL                                                   !ѡԪ
L,508,605                                                !
L,509,705                                                !
L,510,805                                                !
L,511,905                                                !
LATT,2,,2,,,,200                                         !                                      
LSEL,ALL                                                 !ѡ
LSEL,S,TYPE,,2                                           !õԪѡ
LSEL,R,SEC,,200                                          !ýѡ
LESIZE,ALL,,,2                                           !ָ                                       
LMESH,ALL,,,1                                            !ֵǰѡ
ALLSEL                                                   !ѡԪ

!֧
*DO,I,7,407,100                                          !ѭ
L,I,I+94                                                 !                                          
LATT,3,11,3                                              !
*ENDDO                                                   !ѭ                                                                                             
*DO,I,1,401,100                                          !ѭ
L,I,I+106                                                !  
LATT,3,11,3                                              !
*ENDDO                                                   !ѭ 
ALLSEL                                                   !ѡԪ
L,8,107                                                  !
L,107,208                                                !
L,208,307                                                !
L,307,408                                                !
L,408,507                                                !
L,408,509                                                !
L,509,410                                                !
L,410,511                                                !
L,8,109                                                  !
L,109,10                                                 !
L,10,111                                                 !
LATT,3,11,3                                              !
LSEL,ALL                                                 !ѡ
LSEL,S,TYPE,,3                                           !õԪѡ
LESIZE,ALL,,,1                                           !ָ
LMESH,ALL                                                !ֵǰѡ

!
ALLSEL                                                    !ѡԪ                                                 
LSYMM,X,ALL                                               !YZ澵
ALLSEL                                                    !ѡԪ     
LSYMM,Z,ALL                                               !XY澵
ALLSEL                                                    !ѡԪ 
NUMMRG,ALL                                                !ѹԪر

SAVE,MSGJ,DB,,ALL                                         !ΪMSGJ.DB

!***************************߽***************************************
NSEL,S,LOC,Y,0                                            !ѡZΪ0ĵ
D,ALL,UX                                                  !ԼXƽλ
D,ALL,UY                                                  !ԼYƽλ
D,ALL,UZ                                                  !ԼZƽλ


!******************************************************************
/SOLU
ANTYPE,STATIC                                             !ָΪ
SSTIF,ON                                                  !ԤӦ
ACEL,0,-9.8                                               !ʩٶ
LSEL,S,TYPE,,1                                            !õԪѡ
LSEL,R,LOC,X,-B/2+0.01,0                                  !ѡ߸
ESLL,S                                                    !ѡѡԪ
SFBEAM,ALL,2,PRES,1500,1500                               !ʩӾѹ
LSEL,S,TYPE,,1                                            !õԪѡ
LSEL,R,LOC,X,B/2-0.01,0                                   !ѡҰ߸
ESLL,S                                                    !ѡѡԪ
SFBEAM,ALL,2,PRES,-1500,-1500                             !ʩӾѹ
ALLSEL                                                    !ѡԪ 
OUTPR,BASIC,ALL                                           !Ļ            
OUTRES,ALL,ALL                                            !ÿһ
ALLSEL                                                    !ѡԪ 
SOLVE                                                     !
!*********************************************************************
/post1
PLDISP,0                                                  !ͼ
PLNSOL,U,Y,0,1                                            !Yλͼ
!ͼ
ESEL,S,TYPE,,1                                            !õԪѡ
ETABLE,IMZ, SMISC, 6	                                  !ԪؽԪ I Z
ETABLE,JMZ, SMISC, 12	                                  !ԪؽԪ J Z
PLLS,IMZ,JMZ,-1                                           !ͼ
!
ESEL,S,TYPE,,2                                             !õԪѡ                                        
ESEL,R,SEC,,1                                              !ýѡ                                  
ETABLE,IMZ, SMISC, 3	                                   !ԪؽԪ I X
ETABLE,JMZ, SMISC, 16	                                   !ԪؽԪ J X
PLLS,IMZ,JMZ,-1                                            !ͼ





!*****************************ģ̬************************************
/SOLU                                                     !
ANTYPE,MODAL                                              !ָΪģ̬ 
MODOPT,LANB,20,0,0,,OFF                                   !ѡģ̬
MXPAND,20, , ,YES                                         !չ
OUTPR,BASIC,ALL                                           !Ļ            
OUTRES,ALL,ALL                                            !ÿһ
ALLSEL                                                    !ѡԪ 
SOLVE                                                     !
!********************************ģ̬*********************************************
/POST1
SET,LIST                                                  !б
SET,1,1                                                   !һغӲĽ
PLDISP,0                                                  !ʾһ
SET,1,2                                                   !ڶغӲĽ
PLDISP,0                                                  !ʾ
SET,1,3                                                   !غӲĽ
PLDISP,0                                                  !ʾ
SET,1,4                                                   !ĸغӲĽ
PLDISP,0                                                  !ʾĽ



!************************ʱ̷*******************
!*********************CONFIG
FINI
/CONFIG,NRES,20000 
/CONFIG,STATU
/SOLU

ALLSEL
ANTYPE,TRANS   


!ָΪʱ̷ 
!DAMPRATIO=0.0005                                          !ṹ
!FREQ1=3.0215

!ͨģ̬óƵ
!ALPHAD,2*DAMPRATIO*FREQ1*2*3.1415926                      !
!BETAD,2*DAMPRATIO/(FREQ1*2*3.1415926)                     !ն
TRNOPT,FULL                                               !ָΪȫ˲̬ 
TIMINT,OFF                                                !رʱֿ
NLGEOM,OFF                                                !رմο
TIME,1E-8                                                 !һʮСʱ䲽
ACEL,0,-9.8                                               !ʩٶ
SOLVE                                                     !
TIMINT,ON                                                 !ʱֿ
!Ͷʱ 
NT=1000                                                    !ʱNT 
DT=0.01                                                    !ʱ䲽
*DIM,AC,,NT 
!,ļEXCELд 
/INPUT,TIANJIN,TXT                                         !򲨶10 
!-------------------------------------------------- 
NSUBST,1, , ,1                                             !һӲ
OUTRES,ALL,ALL                                             !ÿӲĽ 
*DO,I,1,NT                                                 !ѭ
ACEL,0,AC(I),0                                             !ʩٶ 
TIME,I*DT                                                  !ʱ䲽
SOLVE                                                      !
*ENDDO                                                     !ѭ 

/POST26 
NSOL,2,30,U,y,                                             !ڵλƽ
PLVAR,2,3, , , , , , , , ,                                 !λӦ



































