本构关系问题？具体怎么改呢？ 100
FINISH
/CLEAR
/FILNAME,BEAM
/PREP7
PI=3.1415926
L=3100
LP=1000
W=200
H=300
P=25
R_PS=4
A_PS=0.25*PI*R_PS**2
R_TS=9
A_TS=0.25*PI*R_TS**2
R_GS=4
A_GS=0.25*PI*R_GS**2
FY=350E6
Q=1E6
E0=2E9
EX_C=30E9
PRXY_C=0.2
EX_TS=200E9
PRXY_TS=0.27
EX_GS=210E9
PRXY_SP=0.27
EX_SP=210E15
PRXY_SP=0.48
ET,1,SOLID65,,,,,,,,1
KEYOPT,1,7,1
ET,2,LINK180
MP,EX,1,EX_C
MP,PRXY,1,PRXY_C
TB,MISO,1,,8
TBPT,,0.0001,3E6
TBPT,,0.0005,10.1907E6
TBPT,,0.001,15.8935E6
TBPT,,0.0015,19.1027e6
tbpt,,0.002,20.1e6
tbpt,,0.0025,19.3067e6
tbpt,,0.003,17.4327e6
tbpt,,0.0033,16.08e6
tb,concr,1
tbdata,,0.5,0.95,1.43e6,-1
mp,ex,2,ex_ts
mp,prxy,2,prxy_ts
tb,kinh,2,1,3
tbpt,,fy/ex_ts,fy
tbpt,,fy/ex_ts+0.1,350e6+e0*0.1
tbpt,,fy/ex_ts+0.1001,1000
mp,ex,3,ex_gs
mp,prxy,3,prxy_gs
tb,bkin,3,1,2,1
tbdata,,fy,E0
mp,ex,4,ex_sp
mp,prxy,4,prxy_sb
r,1,
r,2,a_ts
r,3,a_gs
r,4,a_ps
blc4,,,l,h,w
block,100,200,0,-h/10,0,w
block,l-200,l-100,0,-h/10,0,w
vglue,all
wpoffs,,,(p+r_ts/2)
vsbw,all
wpcsys,-1
wpoffs,,,w-(p+r_ts/2)
vsbw,all
wpcsys,-1
wprota,,,90
*do,i,1,11
wpoffs,,,100
vsbw,all
*enddo
wpoffs,,,50
*do,i,1,3
wpoffs,,,200
vsbw,all
*enddo
wpoffs,,,250
*do,i,1,11
vsbw,all
wpoffs,,,100
*enddo
wpcsys,-1
wprota,,,90
wpoffs,,,150
vsbw,all
wpcsys,-1
wprota,,,90
wpoffs,,,l-150
vsbw,all
wpcsys,-1
wprota,,90
wpoffs,,,-(p+r_ts/2)
vsbw,all
wpoffs,,,-h+2*(p+r_ts/2)
vsbw,all
wpcsys,-1
vglue,all
elemsiz=w/4
lsel,s,loc,y,p+r_ts/2
lsel,r,loc,z,p+r_ts/2
cm,ts1,line
latt,2,2,2
lesize,all,elemsiz
lsel,s,loc,y,p+r_ts/2
lsel,r,loc,z,w-(p+r_ts/2)
cm,ts2,line
latt,2,2,2
lesize,all,elemsiz
lsel,s,loc,y,h-(p+r_ts/2)
lsel,r,loc,z,p+r_ts/2
cm,ps1,line
latt,2,4,2
lesize,all,elemsiz
lsel,s,loc,y,h-(p+r_ts/2)
lsel,r,loc,z,w-(p+r_ts/2)
cm,ps2,line
latt,2,4,2
lesize,all,elemsiz
lsel,s,loc,z,(p+r_ts/2)
lsel,r,loc,y,h/2
lsel,u,loc,x,150
lsel,u,loc,x,l-150
lsel,u,loc,x,1050
lsel,u,loc,x,l-1050
cm,gs1,line
latt,3,3,2
lesize,all,elemsiz
lsel,s,loc,z,w-(p+r_ts/2)
lsel,r,loc,y,h/2
lsel,u,loc,x,150
lsel,u,loc,x,l-150
lsel,u,loc,x,1050
lsel,u,loc,x,l-1050
cm,gs2,line
latt,3,3,2
lesize,all,elemsiz
lsel,s,loc,y,p+r_ts/2
lsel,r,loc,z,w/2
lsel,u,loc,x,150
lsel,u,loc,x,l-150
lsel,u,loc,x,1050
lsel,u,loc,x,l-1050
cm,gs3,line
latt,3,3,2
lesize,all,elemsiz
lsel,s,loc,y,h-(p+r_ts/2)
lsel,r,loc,z,w/2
lsel,u,loc,x,150
lsel,u,loc,x,l-150
lsel,u,loc,x,1050
lsel,u,loc,x,l-1050
cm,gs4,line
latt,3,3,2
lesize,all,elemsiz
cmsel,s,ts1
cmsel,a,ts2
cmsel,a,ps1
cmsel,a,ps2
cmsel,a,gs1
cmsel,a,gs2
cmsel,a,gs3
cmsel,a,gs4
lmesh,all
lsel,all
vsel,s,loc,y,-h/20
vatt,4,,1
mshkey,1
esize,elesiz
vsel,all
vsel,u,loc,y,-h/20
vatt,1,,1
mshkey,1
esize,elesiz
vsel,all
vmesh,all
asel,s,loc,y,h
asel,r,loc,x,1000,1100
sfa,all,1,pres,q
asel,s,loc,y,h
asel,r,loc,x,2100,2200
sfa,all,1,pres,q
asel,all
sftran
lsel,s,loc,x,l-150
lsel,r,loc,y,-h/10
dl,all,,uy
lsel,s,loc,x,150
lsel,r,loc,y,-h/10
dl,all,,uy
dl,all,,ux
dl,all,,uz
lsel,all
dtran
asel,all
lsel,all
asel,all
vsel,all
/solu
antype,0
nlgeom,1
nropt,modi
eqslv,spar,,0
nsubst,200,200,50,1
kbc,0
cnvtol,u,,0.05,0,
neqit,50
outres,all,all
solve
finish
具体怎么改 求大神帮忙
