izyk
Mechanical
- Dec 4, 2006
- 21
Hi
I don't know how to apply a residual stress to a membrane. I used a ISTRESS command but it didn't affect on membrane deflection.
Here is a script i've used:
FINISH
/CLEAR
Lm=300
Wm=300
Tm=5
b=30
/PREP7
ET,1,SHELL181
R,1,Tm
MP,EX,1,130e+9*1e-6
MP,DENS,1,2330*1e-18
MP,PRXY,1,0.278
RECTNG,0,Lm,0,Wm
LESIZE,ALL,,,b,-5
MSHAPE,0,2D
MSHKEY,1
AMESH,ALL
NSEL,S,LOC,X,0
NSEL,A,LOC,X,Lm
NSEL,A,LOC,Y,0
NSEL,A,LOC,Y,Wm
D,ALL,UX,0
D,ALL,UY,0
D,ALL,UZ,0
D,ALL,ROTX,0
D,ALL,ROTY,0
D,ALL,ROTZ,0
ALLSEL,ALL
SFA,1,1,pres,300000*1E-6
ISTRESS,1000,1000,1000, , ,
FINISH
/SOLU
ANTYPE,STATIC
SOLVE
FINISH
I don't know how to apply a residual stress to a membrane. I used a ISTRESS command but it didn't affect on membrane deflection.
Here is a script i've used:
FINISH
/CLEAR
Lm=300
Wm=300
Tm=5
b=30
/PREP7
ET,1,SHELL181
R,1,Tm
MP,EX,1,130e+9*1e-6
MP,DENS,1,2330*1e-18
MP,PRXY,1,0.278
RECTNG,0,Lm,0,Wm
LESIZE,ALL,,,b,-5
MSHAPE,0,2D
MSHKEY,1
AMESH,ALL
NSEL,S,LOC,X,0
NSEL,A,LOC,X,Lm
NSEL,A,LOC,Y,0
NSEL,A,LOC,Y,Wm
D,ALL,UX,0
D,ALL,UY,0
D,ALL,UZ,0
D,ALL,ROTX,0
D,ALL,ROTY,0
D,ALL,ROTZ,0
ALLSEL,ALL
SFA,1,1,pres,300000*1E-6
ISTRESS,1000,1000,1000, , ,
FINISH
/SOLU
ANTYPE,STATIC
SOLVE
FINISH