- 积分
- 5
- 注册时间
- 2006-3-28
- 仿真币
-
- 最后登录
- 1970-1-1
|
想通过surf154单元,对一表面施加3个方向的面压,即法向和两个切向。
commands出入如下命令,为什么总是加载不上那,请各位给指点以下错误
cmsel,s,surf1
esel,s,ename,,154 !select elem with Ename
*GET, maxelem, ELEM, 0, NUM,MAX
*GET, Par_type, ELEM, maxelem, ATTR, type
*dim,p1,,maxelem
*dim,p2,,maxelem
*dim,p3,,maxelem
/prep7
keyopt,Par_type,2,1 !Pressure loads according to the local coordinate system
FINISH
!*
/solu
*afun,deg
csys,12 !select local coordinate system
esys,12
elnum=0
*DO,i,1,maxelem
elnum=elnext(elnum)
*GET, locx, ELEM, elnum, CENT, X !get elem centroid location
*GET, locy, ELEM, elnum, CENT, Y
*GET, locz, ELEM, elnum, CENT, Z
lambda1=lambdap1-u1+(locy*u6)-(locz*u5)
lambda2=lambdap2-u2-(locz*u4)+(locx*u6)
lambda3=lambdap3-u3+(locx*u5)-(locy*u4)
*if,lambda2,GE,0,THEN
sign=1
*else
sign=0
*endif
p1(i)=alphat*(lambda2**betat)*lambda1*sign
p2(i)=alphan*(lambda2**betan)*sign
p3(i)=alphat*(lambda2**betat)*lambda3*sign
SFE,elnum,1,PRESS,,-p1,-p2,-p3 !是不是这里有问题呢 ?
*ENDDO |
|