本构关系问题？具体怎么改呢？ 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

具体怎么改  求大神帮忙