ax, planet kmass1, kmass2, ksep, ix, iy, iz, ivx, ivy, ivz, idelta, ifriction ay, az
planet simulates a planet orbiting in a binary star system. The outputs are the x, y and z coordinates of the orbiting planet. It is possible for the planet to achieve escape velocity by a close encounter with a star. This makes this system somewhat unstable.
ix, iy, iz - the initial x, y and z coordinates of the planet
ivx, ivy, ivz - the initial velocity vector components for the planet.
idelta - the step size used to approximate the differential equation.
ifriction - a value for friction, which can used to keep the system from blowing up
kmass1 - the mass of the first star
kmass2 - the mass of the second star
ksep - determines the distance between the two stars
ax, ay, az - the output x, y, and z coodinates of the planet
instr 1 idur = p3 iamp = p4 km1 = p5 km2 = p6 ksep = p7 ix = p8 iy = p9 iz = p10 ivx = p11 ivy = p12 ivz = p13 ih = p14 ifric = p15 kamp linseg 0, .002, iamp, idur-.004, iamp, .002, 0 ax, ay, az planet km1, km2, ksep, ix, iy, iz, ivx, ivy, ivz, ih, ifric outs ax*kamp, ay*kamp endin ; Sta Dur Amp M1 M2 Sep X Y Z VX VY VZ h Frict i1 0 1 5000 .5 .35 2.2 0 .1 0 .5 .6 -.1 .5 -0.1 i1 + . . .5 0 0 0 .1 0 .5 .6 -.1 .5 0.1 i1 . . . .4 .3 2 0 .1 0 .5 .6 -.1 .5 0.0 i1 . . . .3 .3 2 0 .1 0 .5 .6 -.1 .5 0.1 i1 . . . .25 .3 2 0 .1 0 .5 .6 -.1 .5 1.0 i1 . . . .2 .5 2 0 .1 0 .5 .6 -.1 .1 1.0