これと

OUT時間 ローレンツ変換時間(IN時間、OUT固有時間、IN固有時間){

RATE固有時間=IN固有時間/OUT固有時間 //RATE=IN per OUT

return (RATE固有時間*IN時間)

}

OUT長さ ローレンツ変換長さ(IN長さ、IN時間、OUT固有時間、IN固有時間){

RATE固有時間=IN固有時間/OUT固有時間 //RATE=IN per OUT
RRATE固有時間=1/RATE固有時間
V=SQRT(1−RRATE固有時間^2) *c

return ((IN時間*V+IN長さ)/RRATE固有時間)

}

これは

ローレンツ変換f()は
|ct'|=|γ     −γv/c||ct|
|r' | |−γv/c γ    ||r|
γ=1/√(1-(v/c)^2)
こうだろ

同じ計算