訂正

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)

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

}