Расчёт времени межзвёздного путешествия (релятивистский) (fx-9750G, fx-9860G)

Сценарий космического путешествия такой: половину пути корабль разгоняется с постоянным ускорением, а вторую половину пути он замедляется с таким же ускорением. Исходные данные - это длина пути в световых годах и ускорение корабля. Вычисляется время путешествия для наблюдателя, оставшегося на Земле, и для экипажа в секундах и годах.

Программа

\ClrText
2.9979\EE8\->C
"DISTANCE L.Y."?\->D
D*3600*24*365.25*C\->D
"ACCELERATION M/C^2"?\->A
"TIME OF TRAVEL"
"SEC ="
\sqrt(D\x^2/(4C\x^2)+D/(2A))\->T
\LOCATE 6,6,T*2
"YEAR="
\LOCATE 6,7,T/(3600*24*365.25)*2
C/A*\In (AT/C+\sqrt(1+(AT/C)\x^2)\->T
"TIME ON SHIP"
"SEC ="
\LOCATE 6,7,2T
"YEAR="
\LOCATE 6,7,2T/(365.25*24*3600)
\STOP

Контрольный пример:

Летим на границу видимой части Вселенной:
Расстояние 13400000000 св. лет.
Ускорение 10 м/с²
Время путешествия:
4.2287184е+17 сек
1.34е+10 лет
Время на корабле:
1401208738 сек
44.40162554 лет

Летим к Альфа Центавра
Расстояние 4.3 св. лет
ускорение 10 м/с²
Время путешествия:
162941774.4 сек
5.163313257 лет
Время на корабле:
103436341.6 сек
3.277699875 лет