- 积分
- 27
- 注册时间
- 2003-12-23
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2005-7-25 19:06:18
|
显示全部楼层
来自 上海
Re:求助:一个水球高速打在靶板实体上
START
CEND
ENDTIME=10e-3
CHECK=NO
TITLE= Jobname is: WaterImpact
$ unit: m,kg,N,Pa,K,J
TLOAD=1
TIC=1
SPC=1
$ ========= Output result for request: Euler =========
TYPE (Euler) = ARCHIVE
ELEMENTS (Euler) = 1
SET 1 = ALLMULTIEULHYDRO
ELOUT (Euler) = DENSITY SIE PRESSURE FMAT1 FMAT2 XVEL ,
YVEL ZVEL
TIMES (Euler) = 0 THRU END BY 2E-4
SAVE (Euler) = 10000
$
$ Output result for request: WATER
TYPE (WATER) = TIMEHIS
MATS (WATER) = 2
SET 2 = 1
MATOUT (WATER) = EKIN EINT
STEPS (WATER) = 0 THRU END BY 1
SAVE (WATER) = 10000
$
$ Output result for request: WALL
TYPE (WALL) = TIMEHIS
MATS (WALL) = 3
SET 3 = 2
MATOUT (WALL) = EKIN EINT
STEPS (WALL) = 0 THRU END BY 1
SAVE (WALL) = 10000
$
$------- Parameter Section ------
$
PARAM,INISTEP,1E-8
PARAM,MINSTEP,1E-15
$------- BULK DATA SECTION -------
BEGIN BULK
$ WATER MATERIAL
DMAT,1,1000,1,,,,1
EOSPOL,1,2.2E9
PMINC,1,0.0
$ ROCK MATERIAL
DMAT,2,4000,2,,,,2
EOSPOL,2,2.2E9
PMINC,2,-1E6
$ air
DMAT,3,1.25,3
EOSGAM,3,1.4
$
MESH,1,BOX,,,,,,,+
+,-0.5,-0.5,-0.5,1.0,1.0,1.0,,,+
+,20,20,20,,,,EULER,1
$
PEULER1,1,,MMHYDRO,101
$
TICEUL 101 +A000003
+A000003 SPHERE 6 3 6 1 +A000004
+A000004 SPHERE 8 1 5 2 +A000005
+A000005 BOX 5 2 4 3
SPHERE,6,,0.0,0.0,0.0,5.0
SPHERE,8,,0.0,0.0,0.25,0.2
BOX,5,,-0.5,-0.5,-0.5,1.0,1.0,0.5
$ ------- TICVAL BC WATERBALL -----
TICVAL,5,,DENSITY,1000,ZVEL,-600
$ ------- TICVAL BC ROCK -----
TICVAL,4,,DENSITY,4000
$ ------- TICVAL BC air -----
TICVAL,6,,DENSITY,1.25
$
ENDDATA |
|