求解释ANSYS命令流? 50
finish
/prep7
*set,strd,90e6
esel,none
cm,bldam,elem
cm,bl1dam,elem
cm,bl2dam,elem
cm,bl3dam,elem
cm,bl4dam,elem
cm,bl5dam,elem
cm,bl6dam,elem
cm,bl7dam,elem
cm,bl8dam,elem
cm,bl9dam,elem
cm,bl0dam,elem
/post1
INRES,ALL
FILE,'XLD','rst','.'
set,1,1
cmsel,s,AAA,elem
*get,jcount,elem,0,count,
*get,jmin,elem,0,num,min
cmsel,s,AAA,elem
etable,,s,1
etable,,s,3
SADD,is,S1,S3,1,-1, ,
*do,i,120,126,1
set,1,i
ETABLE,REFL
*set,jv,1
*do,j,1,jcount,1
*set,jv,ELNEXT(jv)
*get,pos,elem,jv,etab,is
*if,pos,ge,0.1*strd,then
cmsel,s,bl1dam
esel,a,,,jv
cm,bl1dam,elem
*endif
*if,pos,ge,0.2*strd,then
cmsel,s,bl2dam
esel,a,,,jv
cm,bl2dam,elem
*endif
*if,pos,ge,0.3*strd,then
cmsel,s,bl3dam
esel,a,,,jv
cm,bl3dam,elem
*endif
*if,pos,ge,0.4*strd,then
cmsel,s,bl4dam
esel,a,,,jv
cm,bl4dam,elem
*endif
*if,pos,ge,0.5*strd,then
cmsel,s,bl5dam
esel,a,,,jv
cm,bl5dam,elem
*endif
*if,pos,ge,0.6*strd,then
cmsel,s,bl6dam
esel,a,,,jv
cm,bl6dam,elem
*endif
*if,pos,ge,0.7*strd,then
cmsel,s,bl7dam
esel,a,,,jv
cm,bl7dam,elem
*endif
*if,pos,ge,0.8*strd,then
cmsel,s,bl8dam
esel,a,,,jv
cm,bl8dam,elem
*endif
*if,pos,ge,0.9*strd,then
cmsel,s,bl9dam
esel,a,,,jv
cm,bl9dam,elem
*endif
*if,pos,ge,strd,then
cmsel,s,bl0dam
esel,a,,,jv
cm,bl0dam,elem
*endif
cmsel,s,AAA
*enddo
*enddo
finish
/prep7
MP,EX,2,5e10
MP,NUXY,2,0.22
MP,EX,3,5e10
MP,NUXY,3,0.22
MP,EX,4,5e10
MP,NUXY,4,0.22
MP,EX,5,5e10
MP,NUXY,5,0.22
MP,EX,6,5e10
MP,NUXY,6,0.22
MP,EX,7,5e10
MP,NUXY,7,0.22
MP,EX,8,5e10
MP,NUXY,8,0.22
MP,EX,9,5e10
MP,NUXY,9,0.22
MP,EX,10,5e10
MP,NUXY,10,0.22
MP,EX,11,5e10
MP,NUXY,11,0.22
cmsel,s,bl1dam
mpchg,11,all
cmsel,s,bl2dam
mpchg,2,all
cmsel,s,bl3dam
mpchg,3,all
cmsel,s,bl4dam
mpchg,4,all
cmsel,s,bl5dam
mpchg,5,all
cmsel,s,bl6dam
mpchg,6,all
cmsel,s,bl7dam
mpchg,7,all
cmsel,s,bl8dam
mpchg,8,all
cmsel,s,bl9dam
mpchg,9,all
cmsel,s,bl0dam
mpchg,10,all
/NUMBER,1
/PNUM,MAT,1
esel,all
eplot
/COLOR,NUM,BLAC,1
/COLOR,NUM,LGRA,2
/COLOR,NUM,CBLU,3
/COLOR,NUM,CYAN,4
/COLOR,NUM,GCYA,5
/COLOR,NUM,GREE,6
/COLOR,NUM,YGRE,7
/COLOR,NUM,YELL,8
/COLOR,NUM,ORAN,9
/COLOR,NUM,RED,10
/COLOR,NUM,DGRA,11
/REPLOT