SHOW:
|
|
- or go back to the newest paste.
1 | set steerHeading to 90. | |
2 | set ecc to (((ship:apoapsis+body:radius)+(ship:periapsis+body:radius))/((ship:apoapsis+body:radius)-(ship:periapsis+body:radius))). | |
3 | ||
4 | wait until eta:apoapsis <= 60. | |
5 | set warp to 0. | |
6 | print "Circularization.". | |
7 | ||
8 | wait until eta:apoapsis < 20. | |
9 | lock steering to heading(steerHeading, 0). | |
10 | ||
11 | - | wait until eta:apoapsis <= 10. |
11 | + | UNTIL ecc <= 0.01 { |
12 | - | until ship:verticalspeed < -4 {lock steering to heading(steerHeading, 10).} |
12 | + | |
13 | - | until ship:verticalspeed < -2 {lock steering to heading(steerHeading, 5).} |
13 | + | if eta:apoapsis < 20 { |
14 | - | until ship:verticalspeed > 2 {lock steering to heading(steerHeading, -5).} |
14 | + | lock steering to heading(steerHeading, 0). |
15 | - | until ship:verticalspeed > 4 {lock steering to heading(steerHeading, -10).} |
15 | + | } |
16 | ||
17 | - | when ship:verticalspeed <= 0 then {lock throttle to 1.} |
17 | + | else if eta:apoapsis <= 10 { |
18 | if ship:verticalspeed < -4 { | |
19 | - | wait until ship:periapsis >= (ship:apoapsis*0.70). |
19 | + | lock steering to heading(steerHeading, 10). |
20 | - | lock throttle to 0.7. |
20 | + | } |
21 | if ship:verticalspeed < -2 { | |
22 | - | wait until ship:periapsis >= (ship:apoapsis*0.85). |
22 | + | lock steering to heading(steerHeading, 5). |
23 | - | lock throttle to 0.25. |
23 | + | } |
24 | if ship:verticalspeed > 2 { | |
25 | - | wait until ship:periapsis >= (ship:apoapsis*0.95). |
25 | + | lock steering to heading(steerHeading, -5). |
26 | - | lock throttle to 0. |
26 | + | } |
27 | - | lock steering to heading(steerHeading,0). |
27 | + | if ship:verticalspeed > 4 { |
28 | - | print "Circularization complete.". |
28 | + | lock steering to heading(steerHeading, -10). |
29 | } | |
30 | - | wait until ecc <= 0.01. |
30 | + | } |
31 | ||
32 | else if ship:verticalspeed <= 0 { | |
33 | lock throttle to 1. | |
34 | } | |
35 | ||
36 | else if ship:periapsis >= (ship:apoapsis*0.70) { | |
37 | lock throttle to 0.7. | |
38 | } | |
39 | ||
40 | else if ship:periapsis >= (ship:apoapsis*0.85) { | |
41 | lock throttle to 0.25. | |
42 | } | |
43 | ||
44 | else if ship:periapsis >= (ship:apoapsis*0.95) { | |
45 | lock throttle to 0. | |
46 | lock steering to heading(steerHeading,0). | |
47 | print "Circularization complete.". | |
48 | } | |
49 | ||
50 | WAIT 0.001. // This line is Vitally Important. | |
51 | } | |
52 | ||
53 | print "Orbit eccentriccity = " + ecc. | |
54 | wait 2. |