马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
具体问题是这样的,希望各位大神能指导一二,已经困扰我半个月了。。
我想用ansys做一个水中超声传播的仿真,主要是在水中放置一个超声声源然后观察声波的传播。程序使用了fluid29单元,用正弦波进行模拟声波的产生,在使用D加载后发现只有在选中加载的NODE上才有波形的振动,其他的节点没有任何波形。本意是希望能看到声波的扩散,希望大神能帮我看看问题出在哪,程序如下:
FINI
/CLE
!/CONFIG,NPROC,12
/CONFIG,NRES,18000
/CONFIG,FSPLIT,750
!******************************常量********************************
PI=3.1415926535898
FREQM=5E6
PST=20E-3 !探头平面Y轴坐标
ES=0.1E-3 !阵元间距
EW=3.5E-3 !阵元宽度
CD=ES+EW
SP=10.25E-3 !阵元起始位置
LDTI=0.5E-6 !载荷持续时间
LSTI=2.5E-9 !载荷子步时间
SONC1=5800
NUMELEM1=5
BOX1=SONC1/(NUMELEM1*FREQM)
WADENSITY2=1000
WASONC2=1400
WAMU=0.3 !密度、声速、摩擦系数MU
STWDTH=30E-3
STHIGH=30E-3
/PREP7
RECTING,0,STWDTH,0,STHIGH
ET,1,FLUID29
KEYOPT,1,2,0
MP,DENS,1,WADESITY2
MP,SONC,1,WASONC2
MP,MU,1,0.3
ESIZE,BOX1
MSHKEY,0
MSHAPE,0,2D
TYPE,1
MAT,1
AMESH,1
NT=200
DT=2.5E-9
*DIM,A1,ARRAY,NT
*CREATE,TEMP1
*VREAD,A1,'1','TXT'
(F15.14)
*END
/INPUT,TEMP1
*DIM,CH1,TABLE,NT,1,,TIME,,
*DO,T,1,NT
*SET,CH1(T,0),(T*DT)
C1=A1(T)*(1E-5)
*SET,CH1(T,1),C1
*ENDDO
ALLSEL
/SOLU
OUTRES,NSOL,ALL
ANTYPE,TRANS
TRNOPT,FULL
TIMINT,ON
BTIME=0
ETIME=LDTI
DTIME=LSTI
TIME,ETIME
DELTIM,DTIME
ALLSEL
NSEL,S,LOC,X,SP,SP+EW
NSEL,R,LOC,Y,PST,PST
CM,ZY1,NODE
ALLSEL
D,ZY1,UY,%CH1%
ALLSEL
SOLVE
SAVE
|