作者Hydrisk (小辛苦)
看板Yup00-02
标题Re: 物体在斜面上
时间Mon May 24 12:00:06 2004
program project
implicit none
real :: angle,f,t,m
real :: Vx,Vy,D,Dx,Dy
write(*,*)'请输入角度'
read(*,*)angle
write(*,*)'请输入所施的力'
read(*,*)f
write(*,*)'请输入时间'
read(*,*)t
write(*,*)'请输入质量'
read(*,*)m
call Get_Vx_Vy_Dx_Dy_D(angle,f,t,m,Vx,Vy,Dx,Dy,D)
write(*,*)'水平速度为',Vx
write(*,*)'垂直速度为',Vy
write(*,*)'水平距离为',Dx
write(*,*)'垂直距离为',Dy
write(*,*)'位移为',D
stop
end
subroutine Angle_TO_Rad( angle, rad )
implicit none
real angle, rad
real, parameter :: pi=3.14159
rad = angle*pi/180.0
return
end
subroutine Get_Vx_Vy_Dx_Dy_D(angle,f,t,m,Vx,Vy,Dx,Dy,D)
implicit none
real :: angle,f,t,m
real :: Vx,Vy,Dx,Dy,D
real :: rad
real :: c1,c2
real, parameter :: G=9.81
call Angle_TO_Rad( angle, rad )
c1 = f*cos(rad) - m*G*sin(rad)
c2 = c1 / m
Vx = c2*t*cos(rad)
Vy = c2*t*sin(rad)
Dx = c2*t**2/2*cos(rad)
Dy = c2*t**2/2*sin(rad)
D = c2*t**2/2
return
end
※ 引述《Hydrisk (小辛苦)》之铭言：
: 一物体质量ｍ静至於一光滑斜面上，斜面与地面成ａ角，一水平力ｆ作用於此
: 物体上，经ｔ秒後，试问水平速度，垂直速度，水平高度，铅直高度，位移。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.136.202.9
※ 编辑: Hydrisk 来自: 140.136.202.9 (05/31 10:29)