按在公式计算近地轨道人造卫星速度和环球一周时间运算

!****************************************************
!****************************************************
! 近地轨道人造卫星速度和环球一周时间运算
!****************************************************
! SINOMACH
!
! FORTRAN95,2013&18 version
!
!按在公式计算近地轨道人造卫星速度和环球一周时间运算
!
! 周勇 20221125
!****************************************************
!c $$$Run, Output:
!****************************************************
!****************************************************
! R=6.37154E+6, Meter 地球的半径（米）
! H 卫星轨道距地高度
! CIRCUMFERENCE OF ORBIT IS 2PI(H+R), Meter 轨道的周长(米)
! UNITS ARE M/SEC AND SEC,Second, Minut 单位： 速度，米每秒，秒, 分钟
! VC=卫星按轨道运行速度
! VE=​卫星按逃逸轨道速度运行
!****************************************************
r = 6.37154E+6
Read *, h
vcirc = 25830*sqrt(r)/sqrt(h+r)
vescap = vcirc*sqrt(2.0)
circum = 2*3.141592*(h+r)
time = circum/vcirc
time = time/60
Write (*, 10) h, vcirc, vescap, time
10 Format (1X, 'AT ALTITUDE',F12.2,'M',X,'VC=', F9.2,'M/SEC',X,&
'VE=',F9.2,'M/SEC',2X,'ORBIT TIME',F6.2,'Minut')
End Program

输入(Input): 40000
Compiled Successfully. memory: 2796 time: 0 exit code: 0
输出(Output):
AT ALTITUDE 40000.00M VC= 25749.30M/SEC VE= 36415.01M/SEC ORBIT TIME 26.08Minut

15000
AT ALTITUDE 15000.00M VC= 25799.65M/SEC VE= 36486.21M/SEC ORBIT TIME 25.92Minut
350000
AT ALTITUDE 350000.00M VC= 25148.51M/SEC VE= 35565.36M/SEC ORBIT TIME 27.99Minut
60000000
AT ALTITUDE 60000000.00M VC= 8003.05M/SEC VE= 11318.02M/SEC ORBIT TIME868.47Minut
2500000
AT ALTITUDE 2500000.00M VC= 21890.07M/SEC VE= 30957.23M/SEC ORBIT TIME 42.44Minut

广州