车辆系统动力学计算机仿真.ppt

文档介绍：第四章车辆系统动力学数值分析方法
车辆系统动力学计算机仿真
第四章车辆系统动力学数值分析方法
一、模型
第四章车辆系统动力学数值分析方法
二、参数
第四章车辆系统动力学数值分析方法
三、激扰
第四章车辆系统动力学数值分析方法
implicit double precision (a-h,o-z)
parameter(nn=40000,nd=2,gg=,pi=)
parameter(th=1000.)
COMMON /EXPL/ step,F1KC,FKC,FI1,FI
dimension zb1(nd),vb1(nd),ab1(nd)
dimension dzb1(nd),dvb1(nd),dab1(nd),d1ab1(nd)
open(11,file='',status='unknown')
open(12,file='',status='unknown')
第四章车辆系统动力学数值分析方法
cmk=+6;dmp=+4
cbk=+7;dbp=+4
bm1=
bm2=
bim=
bl=
第四章车辆系统动力学数值分析方法
F1KC=
FKC=
fi1=
fi=
step=-4
第四章车辆系统动力学数值分析方法
do i=1,nn,1
tt=dble(i)*step
zt2=*sin(4.*pi*tt)
zt3=*sin(4.*pi*tt)
CALL EXP1(dzb1,dvb1,dab1,d1ab1,zb1,vb1,nd) ! 积分
CALL EXP2(dzb2,dvb2,dab2,d1ab2,zb2,vb2) ! 积分
CALL EXP2(dzb3,dvb3,dab3,d1ab3,zb3,vb3) ! 积分
第四章车辆系统动力学数值分析方法
! 求弹簧悬挂点质量 1的位移与速度
dm2=zb1(1)+*bl*zb1(2) vm2=vb1(1)+*bl*vb1(2)
dm3=zb1(1)-*bl*zb1(2)
vm3=vb1(1)-*bl*vb1(2)
第四章车辆系统动力学数值分析方法
fm2=cmk*(dm2-zb2)+dmp*(vm2-vb2)
fm3=cmk*(dm3-zb3)+dmp*(vm3-vb3)
fb2=cbk*(zb2-zt2)+dbp*vb2
fb3=cbk*(zb3-zt3)+dbp*vb3