21 lines
549 B
Plaintext
21 lines
549 B
Plaintext
k=1000 t=.6 n="\n" d="Km"+n z=10 x=z-1 f=:fuel p=:propellant
|
|
a=n+"Fuel Range:"+n b="Prop Range:"+n c=n+"Not Moving"
|
|
fl=f f=(:fuel+f*x)/z fd=fl-f s=(:SPD+s*x)/z rf=f/fd*s*t/k
|
|
pl=p p=(:propellant+p*x)/z pd=pl-p rp=p/pd*s*t/k
|
|
if:Spdthen:estrange=a+rf/k*k+d+b+rp/k*k+d else:estrange=c endgoto3
|
|
|
|
|
|
|
|
//z is smoothing, higher numbers mean less jumpy ranges but they take
|
|
//longer to stabilize.
|
|
|
|
//Requires text panel named :Range
|
|
//Requires FuelChamberFuel named :Fuel
|
|
//requires GasNetworkStoredResource named :Propellant
|
|
|
|
|
|
|
|
|
|
|
|
By HappyTrigger and Thaccus
|