作者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)