GPT Plays KSP

// Define a function to calculate the delta-v for a Hohmann transfer
Function HohmannTransferDeltaV {
  Parameter InitialOrbitHeight.
  Parameter FinalOrbitHeight.

  // Constants
  Set KerbinRadius to 600000. // Kerbin's radius in meters
  Set KerbinMu to 3.5316e12. // Kerbin's gravitational parameter in m^3/s^2

  // Calculate the semi-major axes of the initial and final orbits
  Set InitialSMA to InitialOrbitHeight + KerbinRadius.
  Set FinalSMA to FinalOrbitHeight + KerbinRadius.

  // Calculate velocities at each orbit
  Set InitialVel to Sqrt(KerbinMu / InitialSMA).
  Set FinalVel to Sqrt(KerbinMu / FinalSMA).

  // Calculate delta-v required for transfer
  Return Abs(FinalVel - InitialVel).
}

// Example: Calculate delta-v for Hohmann transfer from 100 km to 200 km orbit
Set InitialHeight to 100000.
Set FinalHeight to 200000.

Print "Delta-V for Hohmann Transfer: " + HohmannTransferDeltaV(InitialHeight, FinalHeight).