Расчёт времени межзвёздного путешествия (релятивистский) (HP-35s)
Порт программы для CASIO (fx-9750G, fx-9860G) под HP-35s. Отличие в том, что на дисплей не выводится время в секундах, только в годах.
Сценарий космического путешествия такой: половину пути корабль разгоняется с постоянным ускорением, а вторую половину пути он замедляется с таким же ускорением. Исходные данные - это длина пути в световых годах и ускорение корабля. Вычисляется время путешествия для наблюдателя, оставшегося на Земле, и для экипажа годах.
R001 LBL R
R002 SF 10
R003 DISTANCE (L Y)
R004 PSE
R005 INPUT D
R006 3600
R007 *
R008 24
R009 *
R010 365.25
R011 *
R012 c (from Constants)
R013 *
R014 STO D
R015 ACCEL (M/S^2)
R016 PSE
R017 INPUT A
R018 RCL D
R019 x^2
R020 c (from Constants)
R021 x^2
R022 4
R023 *
R024 /
R025 RCL D
R026 RCL A
R027 2
R028 *
R029 /
R030 +
R031 sqrt
R032 STO T
R033 3600
R034 24
R035 *
R036 365.25
R037 *
R038 /
R039 2
R040 *
R041 STO P
R042 CLx
R043 TRAVEL TIME(Y)
R044 PSE
R045 RCL P
R046 STOP
R047 RCL A
R048 RCL T
R049 *
R050 c (from Constants)
R051 /
R052 x^2
R053 1
R054 +
R055 sqrt
R056 RCL A
R057 RCL T
R058 *
R059 c (from Constants)
R060 /
R061 +
R062 LN
R063 c (from Constants)
R064 *
R065 RCL A
R066 /
R067 STO T
R068 2
R069 *
R070 365.25
R071 24
R072 *
R073 3600
R074 *
R075 /
R076 STO P
R077 CLx
R078 SHIP TIME(Y)
R079 PSE
R080 RCL P
R081 STOP
R082 GTO R0001
R083 RTN
--------
CK=B701
LN=343
Контрольный пример
Летим на границу видимой части Вселенной:
- Расстояние 13400000000 св. лет.
- Ускорение 10 м/с2
XEQ R ENTER
DISTANCE (L Y)
D?
13400000000 R/S
ACCEL (M/S^2)
A?
10 R/S
TRAVEL TIME(Y)
0.0000
13,400,000,001.0
R/S
SHIP TIME(Y)
0.0000
44.4020
Летим к Альфа Центавра
- Расстояние 4.3 св. лет
- ускорение 10 м/с2
XEQ R ENTER
DISTANCE (L Y)
D?
4.3 R/S
ACCEL (M/S^2)
A?
10 R/S
TRAVEL TIME(Y)
0.0000
5.1633
R/S
SHIP TIME(Y)
0.0000
3.2777