From 5aae51193dcd8cd62016d5e6b3128213dc942e2b Mon Sep 17 00:00:00 2001 From: lewisjb Date: Wed, 27 Oct 2021 20:53:27 +1000 Subject: [PATCH] Proof page 401 --- Comanche055/ANGLFIND.agc | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/Comanche055/ANGLFIND.agc b/Comanche055/ANGLFIND.agc index e4c6bf6..d7ff1e4 100644 --- a/Comanche055/ANGLFIND.agc +++ b/Comanche055/ANGLFIND.agc @@ -145,30 +145,31 @@ ALTCALC VLOAD VAD # IF AM GREATER THAN 170 DEGREES TMFI +12D STORE MFISYM +12D # MFISYM=(MFI+TMFI)/2 SCALED BY 4 + # CALCULATE COF DLOAD SR1 CAM - PDDL DSU # PD0 CAM $4 + PDDL DSU # PD0 CAM $4 DPHALF CAM - BOVB PDDL # PD2 1 - CAM $2 + BOVB PDDL # PD2 1 - CAM $2 SIGNMPAC MFISYM +16D DSU DDV 0 2 - SQRT PDDL # COFZ = SQRT(MFISYM8-CAM)/(1-CAM) - MFISYM +8D # $ ROOT 2 + SQRT PDDL # COFZ = SQRT(MFISYM8-CAM)/1-CAM) + MFISYM +8D # $ ROOT 2 DSU DDV 0 2 - SQRT PDDL # COFY = SQRT(MFISYM4-CAM)/(1-CAM) $ROOT2 + SQRT PDDL # COFY = SQRT(MFISYM4-CAM)/(1-CAM) $ROOT2 MFISYM DSU DDV 0 2 - SQRT VDEF # COFX = SQRT(MFISYM-CAM)/(1-CAM) $ROOT 2 + SQRT VDEF # COFX = SQRT(MFISYM-CAM)/(1-CAM) $ROOT 2 UNIT STORE COF