User:TomPN

From Kerbal Space Program Wiki
Revision as of 21:48, 15 December 2015 by TomPN (talk | contribs)
Jump to: navigation, search

Hi! I'm TomPN, and I'm an avid fan of Kerbal Space Program. I'd like to upload my program for calculating whether you should use a Hohmann transfer or a Bi-elliptical transfer, but it's an exe so I can't. I can post the source code, however, so here goes (You'll need a C++ emulator (can be found online) or compiler (can be downloaded) to run the code):

#include <math.h>
#include <iostream>
#include <cstdlib>

using namespace std;

double delta_v (double mass, double radius_1, double radius_2, double radius_3)
{
  double gravity_constant = 0.0000000000667;
  double mu = gravity_constant*mass;
  double a_1 = (radius_1 + radius_2)/2;
  double a_2 = (radius_2 + radius_3)/2;
  double delta_v = sqrt(((2*mu)/radius_1)-(mu/a_1))-sqrt(mu/radius_1)+sqrt(((2*mu)/radius_2)-(mu/a_2))-sqrt(((2*mu)/radius_2)-(mu/a_1))+sqrt(((2*mu)/radius_3)-(mu/a_2))-sqrt(mu/radius_3);
  return delta_v;
}

int main ()
{
  cout << "Orbital transfer calculator v1.1\nWritten by TomPN\n15/12/2015\n" << endl;
  double planet_mass;
  cout << "Please enter the mass of the body you are in orbit around (in kilograms x10^20): ";
  cin >> planet_mass;
  double mass_multiplier = 100000000000000000000.0;
  planet_mass *= mass_multiplier;
  double current_orbit;
  cout << "Please enter your current orbital radius (in metres): ";
  cin >> current_orbit;
  double final_orbit;
  cout << "Please enter your desired orbital radius (in metres): ";
  cin >> final_orbit;
  double sphere_of_influence;
  cout << "Please enter the radius of the sphere of influence of the body that you are\n currently in orbit around (in metres): ";
  cin >> sphere_of_influence;
  double percentage = 0.9;
  double bi_elliptical_apoapsis = percentage*sphere_of_influence;
  double hohmann_delta_v;
  double bi_elliptical_delta_v;
  if (current_orbit < final_orbit)
  {
    hohmann_delta_v = delta_v (planet_mass, current_orbit, final_orbit, final_orbit);
    bi_elliptical_delta_v = delta_v (planet_mass, current_orbit, bi_elliptical_apoapsis, final_orbit);
  }
  else
  {
    hohmann_delta_v = delta_v (planet_mass, final_orbit, current_orbit, current_orbit);
    bi_elliptical_delta_v = delta_v (planet_mass, final_orbit, bi_elliptical_apoapsis, current_orbit);
  }
  if (hohmann_delta_v > bi_elliptical_delta_v)
  {
    cout << "Perform a bi-elliptical transfer with an apoapsis between " << bi_elliptical_apoapsis << " and " << sphere_of_influence << " metres." << endl;
  }
  else
  {
    cout << "Perform a Hohmann transfer." << endl;
  }
  system ("PAUSE");
  return 0;
}

The calculator can be used for raising or lowering your orbit. Please do not edit the source code. If you find an error, point it out to me and I will attempt to fix it.