- 积分
- 0
- 注册时间
- 2007-6-6
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2009-5-9 10:37:57
|
显示全部楼层
来自 大连理工大学
本帖最后由 carmool 于 2009-5-9 10:39 编辑
这个是我建模时用到的,你按你的参数修改一下就可以了。同时我的轴套力方向是沿两小物体的质心方向,不知道轴套力的添加方向有没有什么具体的要求。
创建轴套力:
!create Bushing
!$bushing_stiffness_x:T=real=1.79e5
!$bushing_stiffness_y:T=real:D=7.16e4
!$bushing_damping_x:T=real:D=1
!$bushing_Tstiffness_x:T=real:D=1020
!$bushing_Tstiffness_Y:T=real:D=1280
!$bushing_Tdamping_x:T=real:D=10
var cre var=aaa integer_value=0
for variable_name=i start=0 end=574
force create element_like bushing&
bushing_name=(eval(".MPRO_model.bushing_"//(aaa+1)))&
adams_id=(eval(aaa+10000))&
stiffness=($bushing_stiffness_x),($bushing_stiffness_y),($bushing_stiffness_y)&
damping=($bushing_damping_x),($bushing_damping_x),($bushing_damping_x)&
Tstiffness=($bushing_Tstiffness_x),($bushing_Tstiffness_y),($bushing_Tstiffness_y)&
Tdamping=($bushing_Tdamping_x),($bushing_Tdamping_x),($bushing_Tdamping_x)&
i_marker=(eval(".MPRO_model.yuanzhu_"//aaa//".cm"))&
j_marker=(eval(".MPRO_model.yuanzhu_"//aaa+1//".cm"))
var mod variable=aaa integer_value=(eval(aaa+1))
end
var del var=aaa
接触力:variable cre variable_name=$_self.num integer=1
for variable_name=aaa start=1 end=69
contact create &
contact_name = .MPRO_model.(eval("contact_"//$_self.num+2)) &
adams_id = (eval($_self.num+20000)) &
i_geometry_name = .MPRO_model.(eval("yuanzhu_"//$_self.num)).CYLINDER_36 &
j_geometry_name = .MPRO_model.WAIHUALUN_2 &
stiffness = 5000 &
damping = 10 &
dmax = 1.1 &
exponent = 2 &
augmented_lagrangian_formulation = no &
coulomb_friction = on
variable set variable_name=$_self.num integer=(eval($_self.num+1))
end
variable delete variable_name=$_self.num |
|