R-1　空気抗力を考慮するように改善しました（2026/11/14)

はじめに

本ゲームはPB-100シリーズ(拡張メモリ不要)またはPB-SIM(normal)に対応します。

PokecomGOには対応しません。プログラム・サイズは542stepsです。

注意点

・[1][2][3]以外のキーを押すとエラーになります。（高速化のためエラー回避せず）その場合はshift+[1]で再開できます。

・実際のReEntryは切り離し後の高度約85,000mから始まりますが、しばらくは大気圏再突入の複雑なプロセスが続くので、本ゲームでは簡単のため再突入離脱後（ランディング・バーン）の想定です。

・実際の機体は、エンジン推力だけではなくグリッドフィンによる大気制動も利用しますが、本ゲームではエンジン推力と機体自身の空気抗力だけで減速します。

・水平方向の位置・速度・加速度成分は考慮しません。垂直方向のみです。

・燃料の減少とともに機体の重量が軽くなるので、同じエンジン出力でも加速度が大きくなります。

・高度が下がると大気密度が高くなるので、空気抗力による減速量が大きくなります。

・着陸成功後に表示される速度は、±0.0m/sに近い方がより滑らかな着陸です。また燃料の残量が多いほど余裕のあるReEntryだったことになります。

[P0]

1 VAC

3 $="=-\DT\DT\DT-\LAE":SET F0

5 F=35EX3:M=19EX3:I=283:Y=854EX3:X=Y*.7:W=Y*.39:V=-250

7 H=8EX3:G=9.8:T=.25:N=1/G/I*T:J=5.93:O=1/15EX3:U=1/8500

9 PRINT "S P A C E  Y":GOSUB #3:GOTO #1

[P1]

2 S=INT LOG H:C=H/10^S

6 PRINT:PRINT V*.1;CSR 12-C;MID(S,1);B$;

8 MODE 6.34-F*O:B$="":A=0:E=F+M

10 K$=KEY:IF K$<>"";IF F>0;GOSUB #2

12 D=J*V*V*EXP(-H*U)/E:V=V+(A-G+D)*T

14 H=H+V*T:IF H>10 THEN #1

16 SET F1:PRINT:IF ABS V>=10;PRINT "  FAIL.  ((*":END

18 PRINT "Landing!   =","v=";V;"m/s","F";F;"kg":END

[P2]

1 L=VAL(K$):Z=V(L):B$=MID(L+5,1):A=Z/E:F=F-Z*N:RETURN

[P3]

1 FOR P=0 TO 11:PRINT:PRINT CSR 11-P;"\DT";

2 IF P=0;FOR Q=0 TO 9:GOSUB 6:PRINT CSR4;9-Q;:NEXT Q

3 IF P>0;PRINT "\LA";

4 IF P>7;PRINT CSR4;"\DT";

5 GOSUB 6:NEXT P:PRINT:PRINT "ReEntry";

6 FOR R=0 TO 99:NEXT R:RETURN

ゲーム集に戻る　ホームに戻る