From b85bebb3c911f9c19081b988d6a32f7eb64180f8 Mon Sep 17 00:00:00 2001 From: Mike Stewart Date: Sat, 17 Jun 2017 15:38:30 -0700 Subject: [PATCH] Sunburst 37: Added a numerical workaround and a syntax fix. --- Sunburst37/PREBURN_FOR_APS2.agc | 3 ++- Sunburst37/SECOND_DPS_GUIDANCE.agc | 7 ++++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/Sunburst37/PREBURN_FOR_APS2.agc b/Sunburst37/PREBURN_FOR_APS2.agc index f95b9d4211..e597a1266b 100644 --- a/Sunburst37/PREBURN_FOR_APS2.agc +++ b/Sunburst37/PREBURN_FOR_APS2.agc @@ -19,6 +19,7 @@ ## Mod history: 2017-05-24 MAS Created from Sunburst 120. ## 2017-06-11 HG Transcribed ## 2017-06-15 HG Fix interpretive operator STODL -> STORE +## 2017-06-17 MAS Split up an "E-4B9". ## Page 851 # PREAPS2 IS A PROGRAM WHICH INITIALIZES **ASCENT** FOR THE 2ND APS @@ -98,7 +99,7 @@ PRAPS VLOAD SET DXCH Z COS27 2DEC .89100652 SIN27 2DEC .45399050 -ENGNOM 2DEC 3.20928237 E-4B9 # AT*2(9) +ENGNOM 2DEC 3.20928237 E-4 B9 # AT*2(9) 2DEC .0330009301 B4 # (1/VE)*2(4) 2DEC 94420.4114 B-17 # TBUP*2(-17) diff --git a/Sunburst37/SECOND_DPS_GUIDANCE.agc b/Sunburst37/SECOND_DPS_GUIDANCE.agc index 6bb5a8e51f..6fb5940bee 100644 --- a/Sunburst37/SECOND_DPS_GUIDANCE.agc +++ b/Sunburst37/SECOND_DPS_GUIDANCE.agc @@ -19,6 +19,8 @@ ## Mod history: 2017-05-24 MAS Created from Sunburst 120. ## 2017-06-13 HG Transcribed ## 2017-06-15 HG Fix interpretive operand /AFC/ -> /ACF/ +## 2017-06-17 MAS Added a workaround for yaYUL calculating a +## fractional number off by one. ## Page 814 @@ -1552,7 +1554,10 @@ A1FS 2DEC* +5.044035031 E-5 B+6* 2DEC* +4.277783493 E-11 B+30* ## Page 847 -TTF/4NU2 DEC* -3.375000000 E+3 B-15* +## Workaround: the following line has been changed to OCT because yaYUL produces +## slightly different numerical results. The original was as follows: +## TTF/4NU2 DEC* -3.375000000 E+3 B-15* +TTF/4NU2 OCT 74550 A2FS 2DEC* +1.331951587 E-4 B+6*