声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1023|回复: 0

[前后处理] 求助刚性球撞板

[复制链接]
发表于 2009-7-4 11:23 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
想知道刚性球撞板,板的情况。
不知道哪里出问题了。麻烦大家帮我看看。

命令流如下,
!定义单元类型
/PREP7  

ET,1,SOLID168         !小球
  
ET,2,SOLID168         !链板
  
EDMP,RIGI,1,7,7      !小球刚性体
MP,DENS,1,2300      
MP,EX,1,4.8e10  
MP,NUXY,1,0.2
  
MP,DENS,2,7850       !链板弹性体
MP,EX,2,2.1e11  
MP,NUXY,2,0.3   


BLOCK,-1.450,1.450,0,-0.02,-0.1,0.1,     
K,9,-0.1,-0.02,-0.1,
K,10,-0.1,-0.02,0.1,
K,11,0.1,-0.02,0.1,  
K,12,0.1,-0.02,-0.1,
K,13,0.5,-0.02,-0.1,
K,14,0.5,-0.02,0.1,  
K,15,-0.5,-0.02,0.1,
K,16,-0.5,-0.02,-0.1,
K,17,-0.7,-0.02,-0.1,
K,18,-0.7,-0.02,0.1,
K,19,0.7,-0.02,0.1,  
K,20,0.7,-0.02,-0.1,
K,21,1.1,-0.02,-0.1,
K,22,1.1,-0.02,0.1,  
K,23,-1.1,-0.02,0.1,
K,24,-1.1,-0.02,-0.1,
K,25,-1.3,-0.02,-0.1,
K,26,-1.3,-0.02,0.1,
K,27,1.3,-0.02,0.1,  
K,28,1.3,-0.02,-0.1,
LSTR,25,26
LSTR,24,23
LSTR,17,18
LSTR,16,15
LSTR,9,10
LSTR,12,11
LSTR,13,14
LSTR,20,19
LSTR,21,22
LSTR,28,27
LPLOT   
FLST,3,10,4,ORDE,2  
FITEM,3,13  
FITEM,3,-22
ASBL,       3,P51X  
VPLOT
SPH4,0,1,0.175

VSEL,S,VOLU,,2       !划分网格
VATT,1,,1,0,
VSEL,S,VOLU,,1
VATT,2,,2,0,
ALLSEL,ALL
MSHKEY,0                 !采用自由网格化分
MSHAPE,1,3D
LESIZE,ALL,0.05,
VMESH,ALL

EDPART,CREATE          !定义PART号,球2,板1
EDCGEN,ASTS,1,2,0,0,0,0,0,,,,,0,10000000


DA,9,UY,0                     !加载约束
DA,11,UY,0
DA,13,UY,0
DA,15,UY,0
DA,17,UY,0

EDVE,VELO,2,0, -11.7 ,0,0,0,0, , , , , ,    !加初速度


*DIM,TIME,ARRAY,2,1,1, , ,                     !定义加速度数组
!*  
*SET,TIME(2,1,1) , 1
*DIM,GY,ARRAY,2,1,1, , ,  
!*  
*SET,GY(1,1,1) , 9.8  
*SET,GY(2,1,1) , 9.8  
EDLOAD,ADD,ACLY,0,2,TIME,GY, 0, , , , ,
FINISH  

/SOL
TIME,0.1,   
EDOPT,ADD,blank,BOTH
EDRST,30,   
EDHTIME,30,
EDDUMP,1,
SAVE
SOLVE
回复
分享到:

使用道具 举报

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-12-2 19:24 , Processed in 0.051708 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表