KOS set TWR

Function Findg
{
	Parameter A.
	Set GM to Constant():G * Body:Mass.
	Set R to A + Body:Radius.
	Set g to GM/(R^2).
	Return g.
}

Function SetThrottleTWR
{
	Parameter TWR.
	If Ship:AvailableThrust > 0
	{
		Set tVal to TWR * Findg(Altitude) * (Ship:Mass/Ship:AvailableThrust).
		If tVal > 1	{Set tVal to 1.}
		Lock Throttle to tVal.
	}
}