ANSYS中函数界限前提加载.ppt

函数边界条件加载三种方法实现复杂边界条件的施加应用实例在ANSYS的全局球坐标系中，加载函数表示为：fini
/clear,nostart
*afun,deg
/prep7
et,1,93
r,1,44
mp,ex,1,2.094e5
mp,prxy,1,0.262
mp,dens,1,7.83e-6
csys,1
k,1,7850,90
k,2,7850,0
k,3,7850,-30
k,100,
l,1,2
l,2,3
arotat,1,2,,,,,1,100,360
aesize,all,1000
csys
mshape,0
mshkey,1
amesh,allOMEGA=2 !设定风激励的频率OMEGA为2

*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNCCSYS
*SET,_FNCNAME,'wind'
*DIM,_FNC_C1,,1
*SET,_FNC_C1(1),OMEGA
*SET,_FNCCSYS,2

*DIM,%_FNCNAME%,TABLE,6,18,1,,,,%_FNCCSYS%

*SET,%_FNCNAME%(0,0,1),0.0,-999
*SET,%_FNCNAME%(2,0,1),0.0
*SET,%_FNCNAME%(3,0,1),%_FNC_C1(1)%
*SET,%_FNCNAME%(4,0,1),0.0
*SET,%_FNCNAME%(5,0,1),0.0
*SET,%_FNCNAME%(6,0,1),0.0
*SET,%_FNCNAME%(0,1,1),1.0,-1,0,1,17,3,1*SET,%_FNCNAME%(0,2,1),0.0,-1,9,1,-1,0,0
*SET,%_FNCNAME%(0,3,1),0,-1,15,1,-1,0,0
*SET,%_FNCNAME%(0,4,1),0.0,-2,0,0.441,0,0,-1
*SET,%_FNCNAME%(0,5,1),0.0,-3,0,1,-2,3,-1
*SET,%_FNCNAME%(0,6,1),0.0,-1,10,1,4,0,0
*SET,%_FNCNAME%(0,7,1),0.0,-2,0,2,0,0,-1
*SET,%_FNCNAME%(0,8,1),0.0,-4,0,1,-1,17,-2
*SET,%_FNCNAME%(0,9,1),0.0,-1,0,0.5,0,0,-4
*SET,%_FNCNAME%(0,10,1),0.0,-2,0,1,-1,3,-4
*SET,%_FNCNAME%(0,11,1),0.0,-1,10,1,3,0,0
*SET,%_FNCNAME%(0,12,1),0.0,-4,0,1,-2,3,-1
*SET,%_FNCNAME%(0,13,1),0.0,-1,9,1,4,0,0
*SET,%_FNCNAME%(0,14,1),0.0,-2,0,2,0,0,-1
*SET,%_FNCNAME%(0,15,1),0.0,-5,0,1,-1,17,-2
*SET,%_FNCNAME%(0,16,1),0.0,-1,0,1,-4,2,-5
*SET,%_FNCNAME%(0,17,1),0.0,-2,0,1,-3,3,-1
*SET,%_FNCNAME%(0,18,1),0.0,99,0,1,-2,0,0sfa,all,,pres,%wind%
allsel

nsel,s,loc,y,7850*sin(-30) !选择下部圆边上所有节点
d,all,ux,0,,,,uy,uz
allsel
/solu
antype,4
trnopt,full
kbc,0
time,3*2*3.14/OMEGA
nsub,3*12
outres,all,all
allsel
solve
save