FINI
/CLE
/FILNAME,PRESTRESS PROBLEM
/TITLE,EXAMPLE OF PRESTRESS PROBLEM
L=6	!ֽ
T=0.05
B=0.25
H=0.4
ARE=3.14E-4	!ֽ
EAL=2E11
P=1.0E-5	!ϵ
YYL=2000	!ֽԤС
/PREP7
!嵥Ԫʵ
ET,1,65
ET,2,45
ET,3,8
MP,EX,1,3.3E10
MP,PRXY,1,0.3
TB,CONCR,1	!
TBTEMP,0
TBDATA,,0.9,1,3.46E6,-1
R,1
MP,EX,2,2.06E11
MP,PRXY,2,0.3
TB,BKIN,2	!Ϊ˫涯Ӳģ
TBTEMP,0
TBDATA,,215E6,0
R,2
MP,EX,3,EAL
MP,PRXY,3,0.3
MP,ALPX,3,P	!ϵ
TB,BKIN,3
TBTEMP,0
TBDATA,,215E6,0
R,3,ARE
!ģ
K,1		!ؼ
K,2,,T,0	
K,3,,T,T
K,4,,,T
K,5,,H+T,0
K,6,,H+2*T,0
K,7,,H+2*T,T
K,8,,H+T,T
K,9,,,B+T
K,10,,T,B+T
K,11,,T,B+2*T
K,12,,,B+2*T
K,13,,H+T,B+T
K,14,,H+2*T,B+T
K,15,,H+2*T,B+2*T
K,16,,H+T,B+2*T
A,1,2,3,4	!ɹؼ
A,2,5,8,3
A,5,6,7,8
A,4,3,10,9
A,3,8,13,10
A,8,7,14,13
A,9,10,11,12
A,10,13,16,11
A,13,14,15,16
VEXT,ALL,,,L!
K,40,,H/2,B/2+T
K,41,L,H/2,B/2+T
L,40,41	!
LSEL,S,,,65
LATT,3,3,3
LESIZE,ALL,,,20
LMESH,ALL	!
ALLS
VSEL,S,,,1,4
VSEL,A,,,6,9
VATT,2,2,2
VSEL,S,,,5
VATT,1,1,1
LSEL,S,,,52,59,7
LSEL,A,,,62,63
LSEL,A,,,38,39
LSEL,A,,,34,40,6
LSEL,A,,,44,55,11
LSEL,A,,,54,56,2
LSEL,A,,,25,28
LESIZE,ALL,,,1
LSEL,S,,,43,45,2
LSEL,A,,,48,51,3
LESIZE,ALL,,,4
LSEL,S,,,33,35,2
LSEL,A,,,49,60,11
LESIZE,ALL,,,6
LSEL,S,,,31,37,6
LSEL,S,,,46,50,4
LESIZE,ALL,,,20
ALLSEL,ALL
MSHAPE,0,3D
MSHKEY,1
VMESH,ALL	!ֻ
/SOLU
!ʩԼͺ
LSEL,S,,,4,13,9
LSEL,A,,,20
DL,ALL,,UY,0
DL,ALL,,UZ,0
LSEL,S,,,28,45,17
LSEL,A,,,56
DL,ALL,,UY,0
DK,1,UX,0
DK,17,UX,0
ASEL,S,,,21,41,10
SFA,ALL,1,PRES,10000	!ڻϲʩѹ
BFL,65,TEMP,-YYL/(EAL*ARE*P)!Ըֽʩ¶
!ɶ
ALLS	!ȫѡ
LSEL,S,,,65	!ѡ
NSLL,S,1	!ѡϵнڵ
CM,CM1JNOD,NODE	!ϵĽڵΪCM1JNOD
*GET,MAX1,NODE,0,COUNT	!ȡѡڵĿMAX1
*DIM,OJD,,MAX1	!峤ΪMAX1OJD
*DIM,JD,,MAX1!峤ΪMAX1JD
*GET,NOD1,NODE,0,NUM,MIN	!ȡϵͽڵŲNOD1
OJD(1)=NOD1	!NOD1ֵOJDĵһֵ
*DO,I,2,MAX1
OJD(I)=NDNEXT(OJD(I-1))	!ߵĽڵŰθOJD
*ENDDO
ALLS	!ȫѡ
NSEL,ALL	!ѡȫڵ
CMSEL,U,CM1JNOD	!ѡĽڵ
*DO,I,1,MAX1
NOD1=OJD(I)	!ߵĽڵŸNOD1
J=NNEAR(NOD1)	!߽ڵĽڵ
JD(I)=J		!õĽڵŸJD
*ENDDO
NSEL,ALL	!ѡȫڵ
JI=1	
*DO,I,1,MAX1
CP,JI,UX,OJD(I),JD(I)	!ϵĽڵ㼰ڵXɶ
CP,JI+1,UY,OJD(I),JD(I) !ϵĽڵ㼰ڵYɶ
CP,JI+2,UZ,OJD(I),JD(I) !ϵĽڵ㼰ڵZɶ
JI=JI+3 
*ENDDO
CNVTOL,F,,,,-1	!׼
TIME,1		!ʱ
NSUBST,100,,,1	!100غӲ
AUTOTS,ON	!Զʱ䲽
LNSRCH,1	!
NEQIT,50	!ƽΪ50
PRED,ON		!򿪷Ԥ
NLGEOM,ON	!򿪴ЧӦ
OUTPR,ALL,ALL	!ôӡѡ
OUTRES,ALL,ALL	!н
ALLS		!ȫѡ
SOLVE		!
FINI
/POST1
PLNSOL, U,X	!ʾXλ
PATH,PATH,2	!·
PPATH,1,1 !ͨڵ· 
PPATH,2,2 !ͨڵ· 
PDEF,STRESS_X,S,X,AVG	!XӦӳ䵽·
PLPATH,STRESS_X 	!ʾ·ͼ

