Расчёт времени межзвёздного путешествия (релятивистский) (CASIO 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 лет