- 积分
- 15
- 注册时间
- 2006-9-22
- 仿真币
-
- 最后登录
- 1970-1-1
|
刚开版论坛这么冷清,看来大家对PFC论坛认识不够,鼓励大家学习pFC,调动学PFC兴趣!从我做起,为大家激烈发帖讨论开个头。为了壮大PFC论坛,发的有意义的好贴一律加分鼓励!
下面给大家一个打台球小例子(该例子很好介绍了运动方程,发射球的距离假定10m,以10m/s速度发射,从发射到开始碰撞时间1秒,碰撞后球散开时间9秒):
代码如下:
new
;生成三角形框里的求
def q_bal
yc = 0.0
zc= 0.0
loop row (1,nbase)
xc = (row - 1) * r_ball
loop col (1,nbase-row+1)
command
ball x=xc y=yc z=zc rad=r_ball
end_command
xc = xc + r_ball * 2.0
end_loop
yc = yc + 2.0 * r_ball * sin(degrad * 60.0)
end_loop
end
set r_ball=1.0 nbase=5
q_bal
;生成发射球
def col_bal
x1=-10* sin(degrad * 60.0)
y1=-10* cos(degrad * 60.0)
vx=10*sin(degrad * 60.0)
vy=10*cos(degrad * 60.0)
command
ball id=100 x=x1 y=y1 z=0.0 rad=r_ball
ini xvel=vx yvel=vy zvel=0.0 range id=100
end_command
end
;
col_bal
;给球赋力学参数:密度和接触刚度
prop dens 1 ks 100 kn 100
;设置输出图形格式
plot create view
plot set rotation (41.161,3.2675,30.0628)
plot show
;设置安全系数
set safe= 0.1
;设置动态计算最大步时
set dt max 0.001
;设置阻尼(为了保证发射球能量,设置小阻尼)
prop damp=0.0
;***********************************
;由于目前PFC3D3.0没有做动画功能,自己设计制作动画
step 10000
ret
[ 本帖最后由 sch 于 2006-12-31 14:11 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
评分
-
1
查看全部评分
-
|