583bd350-b841-4b81-802d-8b2843d17034 8 7 5 decimal

&[DATE] &[TIME] - &[FILENAME]

Some input data:-

s 1320000 :

b 6356752.3142 :

----------------------------------------------------

Relevant values derived elsewhere in the application:-

A 1.0011799193 :

B 0.0011781815 :

σ.0 0.2074084811 :

σ.1 1.1748195485 :

----------------------------------------------------

Initialize "while" loop

σ.p 0 :

iterations 0 :

σ σ.0 : 0.2074085

v σ.0 : 0.2074085

----------------------------------------------------

(try to!) run the loop

v abs 1012 -^> iterations iterations 1 + : σ.p σ : sinσ σ sin : cosσ σ cos : cos2σ.m 2 σ.1 * σ + cos : k.3 B 6 / cos2σ.m * 3 - 4 sinσ 2^* + (* 3 - 4 cos2σ.m 2^* + (* : Δσ B sinσ * cos2σ.m B 4 / cosσ 1 - 2 cos2σ.m 2^* + (* k.3 - (* + (* : σ s b A * / Δσ + : v σ σ.p - : 91 line while

"Post-convergence" final values required in this case (and their expected values) are:-

σ

0.2072063964

cos2σ.m

-0.8338516774

sinσ

0.2057268593

iterations

2.6559310307 1013 -^*

cosσ

0.9786094519

v

Actual result e.g.

sinσ # :

???