!С 
!嵥ԪԪʱEXAM4 
FINI
/CLE
/FILNAME,BEAM_AND_SOLID_ELEMENTS_CONNECTION	!幤ļ
/TITLE,COUPLE_AND_CONSTRAINT_EQUATION			!幤
/PREP7 
ET,1,SOLID95 						!ʵ嵥ԪΪSOLID95
ET,2,BEAM4 						!ԪΪBEAM4
MP,EX,1,3E5 						!ϵĵģ
MP,PRXY,1,0.3 						!岴ɱ
R,1 								!ʵ嵥Ԫʵ
R,2,10.0,10/12.0,1000/12.0,10.0,1.0 	!Ԫʵ
BLC4,,,20,7,10 						!οΪʵģ
WPOFFS,0,3.5 						!ƽYƶ3.5
WPROTA,0,90  						!ƽXת90
VSBW,ALL 							!ʵعƽʿ
WPOFFS,0,5  						!ƽYƶ5  
WPROTA,0,90  						!ƽXת90
VSBW,ALL							!ʵعƽʿ
WPCSYS,-1 						!ƽΪѿһ
K,100,20,3.5,5						!ؼ
K,101,120,3.5,5 					!ؼ
L,100,101 							!ӹؼʵ
LSEL,S,LOC,X,21,130 				!ѡ
LATT,1,2,2 						!ָĵԪ
LESIZE,ALL,,,10 					!ָϵĵԪ
LMESH,ALL							!Ԫ
VSEL,ALL 							!ѡʵ
VATT,1,1,1 						!ʵĵԪ
ESIZE,1 							!ָʵ嵥Ԫߴ
MSHAPE,0,2D 						!ʵ嵥ԪΪ2D
MSHKEY,1 							!Ϊӳ񻮷ַ
VMESH,ALL 						!ʵ嵥Ԫ
ALLS								!ȫѡ
FINI 								!˳ǰ
!------------------------ 
/SOLU 								!
ASEL,S,LOC,X,0   					!ѡʵĶ
DA,ALL,ALL   						!Լʵ
ALLS								!ȫѡ
FK,101,FY,-3.0 						!ʩYѹ
CP,1,UX,1,21 						!Ͻڵ1ͽڵ21Xɶ
CP,2,UY,1,21						!Ͻڵ1ͽڵ21Yɶ
CP,3,UZ,1,21 						!Ͻڵ1ͽڵ21Zɶ
CE,1,0,626,UX,1,2328,UX,-1,1,ROTY,-ABS(NZ(626)-NZ(2328))	!Լ
CE,2,0,67,UX,1,4283,UX,-1,1,ROTZ,-ABS(NY(67)-NY(4283)) 	!Լ
CE,3,0,67,UZ,1,4283,UZ,-1,1,ROTX,-ABS(NY(67)-NY(4283)) 		!Լ
ALLS								!ȫѡ
SOLVE								! 
FINI								!˳
!------------------------ 
/POST1								!ͨú
PLNSOL, U,Y, 0,1.0					!ʾYλ
PLNSOL, S,EQV, 0,1.0				!ʾЧӦ
ETABLE,ZL1,SMISC,1 				!ȡԪIڵX
ETABLE,ZL2,SMISC,7 				!ȡԪJڵX
ETABLE,MZ1,SMISC,6 				!ȡԪIڵZ
ETABLE,MZ2,SMISC,12 			!ȡԪJڵZ
PLETAB,ZL1						!ʾԪX
PLETAB,MZ1						!ʾԪZ

 !********************************************** 
