Orbital elements: Difference between revisions

Content added Content deleted
m (→‎{{header|ooRexx}}: sin -> rxCalcsin , courtesy GS)
m (→‎{{header|ooRexx}}: 2 more little glitches :-( good night!)
Line 524: Line 524:
Else l=1-eccentricity*eccentricity
Else l=1-eccentricity*eccentricity
l*=semimajorAxis
l*=semimajorAxis
c=rxCalccos(trueAnomaly)
c=rxCalccos(trueAnomaly,16,'R')
s=rxCalcsin(trueAnomaly)
s=rxCalcsin(trueAnomaly,16,'R')
r=l/(1+eccentricity*c)
r=l/(1+eccentricity*c)
rprime=s*r*r/l
rprime=s*r*r/l