Расчёт времени межзвёздного путешествия (релятивистский) (HP-35s)

| рубрика «Программы» | автор Vitasam
Метки: ,

Порт программы для 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

blog comments powered by Disqus