PRINT
PRINT "ローレンツ変換による、"
PRINT "     労作時間の伸展（スローモーション化）"
PRINT "     距離の短縮"
PRINT
INPUT PROMPT "光速の何％で移動している慣性系？ ":n
PRINT
LET T=ROUND(100/SQR(1-(n/100)^2),3)
LET R=ROUND(SQR(1-(n/100)^2)*100,3)
LET S=SQR(1-0.5^2)*100
PRINT "労作時間 の 伸展度 ： ";T;"％"
PRINT "   距離 の 短縮度  ： ";R;"％"
PRINT
PRINT "ちなみに倍になるのは、"
PRINT "      光速の";S;"％で移動している慣性系です。"
PRINT
PRINT "止まっている物が移動し始めると、"
PRINT "       労作時間が進展し、"
PRINT "       移動方向の距離が短縮します。"
PRINT
END