[khopeshra]

Здравствуйте.
Не могли бы Вы подсказать мне, как смоделировать граничные условия поглощение упругой волны для следующей задачи. Рассматривается сечение – 2d. На землю падает камень. В результате удара, в небольшом прямоугольнике моделирующем сечении земли возникают упругие волны.
Мне необходимо сделать так, что бы дойдя до дна или боковых стенок прямоугольника, упругие волны не отражались обратно, а поглощались.
(Как выглядит команда в ansys apdl)
Как задаются такие граничные условия?
Не могли бы Вы посоветовать мне литературу по данному вопросу?
С уважением Андрей.

[СергейД]

вариантов много. например=
на внешних границах нужно поместить поверхностные элемент типа 154 с большим демпфированием

[khopeshra]

К сожалению, волна отражается и приходит обратно...



!**************Clear workspace*******************
FINISH
/CLEAR,NOSTART
/CONFIG,NRES,1000000
/NERR,0,9999999,,ON
width=10 ! Half Sample width in m
Height=5 ! Sample height in m
els=0.1
tstp=1E-6 !time step length
ld=50 ! Nr or steps 2 run
matEX=200e9 !fractured material youngs modulus
matNUXY=0.25 !fractured material poissons ratio
matDENS=6000 !fractured material density
impAmp=1 !impater material youngs modulus
impLen=5 !impacter initial velocity
/PREP7
!**************Elements*******************
ET,1,PLANE182
KEYOPT,1,3,0
ET,2,SURF153
KEYOPT,2,3,0
!**************Material Properties*******************
MP,EX,1,matEX ! Young's modulus
MP,NUXY,1,matNUXY ! Poisson's ratio
MP,DENS,1,matDENS ! Density
MP,EX,2,matEX ! Young's modulus
MP,NUXY,2,matNUXY ! Poisson's ratio
MP,DENS,2,matDENS ! Density
MP,VISC,2,100000000000000
MP,DAMP,2,100000000000000
!**************Geometry*******************
blc4,-width/2,-Height,width,Height

LESIZE,1,,,100
LESIZE,2,,,50
LESIZE,4,,,50
TYPE,1 ! Предписание использовать
MAT,1
LESIZE,3,,,100
ALLSEL, ALL ! Выделить все
amesh,1
TYPE,2 ! Предписание использовать
MAT,2
E,152,252
E,102,151
E,300,1
E,1,3
E,101,2
E,103,2
*do,j,1,98
E,2+j,3+j
*enddo
*do,j,1,48
E,102+j,103+j
*enddo
*do,j,1,48
E,251+j,252+j
*enddo
F,202,FY,-impAmp
/SOLU
ANTYPE,TRANS !Transient analysis
TIMINT,ON
NLGEOM,ON ! Large deflections
SSTIF,ON ! Stress stiffening
OUTPR,ALL,ALL
OUTRES,ALL,ALL
NSUBST,1,1,1
AUTOS,ON
LNSRCH,AUTO
NEQIT,100
*DO,stor,1,impLen,1
TIME,tstp*stor
SOLVE
*ENDDO
FDELE,202,all
*DO,stor,impLen+1,ld,1
TIME,tstp*stor
SOLVE
*ENDDO