ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update TJET_LAW.agc

Browse Source
This commit is contained in:
Dhivya S 2021-10-02 00:24:09 +05:30
parent 343e5bcde5
commit 27375f5b48
1 changed files with 145 additions and 145 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Luminary099/TJET_LAW.agc
View File

@ -45,7 +45,7 @@
# #
# THE SIGN OF THE REQUIRED ROTATION IS CARRIED THROUGH TJETLAW AS ROTSENSE AND IS FINALLY APPLIED TO TJET JUST # THE SIGN OF THE REQUIRED ROTATION IS CARRIED THROUGH TJETLAW AS ROTSENSE AND IS FINALLY APPLIED TO TJET JUST
# PREVIOUS TO ITS STORAGE IN THE LOCATION CORRESPONDING TO THE AXIS (TJP, TJU, OR TJV). THE NUMBER OF JETS THAT # PREVIOUS TO ITS STORAGE IN THE LOCATION CORRESPONDING TO THE AXIS (TJP, TJU, OR TJV). THE NUMBER OF JETS THAT
# TJETLAW ASSUMES WILL BE USED AS INDICATED BY THE SETTING OF NUMBERT FOR THE U- OR V-AXIS. TWO JETS ARE ALWAYS # TJETLAW ASSUMES WILL BE USED IS INDICATED BY THE SETTING OF NUMBERT FOR THE U- OR V-AXIS. TWO JETS ARE ALWAYS
# ASSUMED FOR THE P-AXIS ALTHOUGH FOUR JETS WILL BE FIRED WHEN FIREFCT IS MORE NEGATIVE THAN -4.0 DEGREES # ASSUMED FOR THE P-AXIS ALTHOUGH FOUR JETS WILL BE FIRED WHEN FIREFCT IS MORE NEGATIVE THAN -4.0 DEGREES
# (FIREFCT IS THE DISTANCE TO A SWITCH CURVE IN THE PHASE PLANE) AND A LONG FIRING IS CALLED FOR. # (FIREFCT IS THE DISTANCE TO A SWITCH CURVE IN THE PHASE PLANE) AND A LONG FIRING IS CALLED FOR.
# #
@ -70,7 +70,7 @@
# TJP, -U OR -V, NUMBERT (DAPTEMP5), FIREFCT (DAPTEMP3). # TJP, -U OR -V, NUMBERT (DAPTEMP5), FIREFCT (DAPTEMP3).
# #
# DEBRIS: # DEBRIS:
# A, L, Q, E, EDOT, DAPTEMP1-6, DAPTEMP1-4. # A, L, Q, E, EDOT, DAPTEMP1-6, DAPTRBG-4.
# #
# ALARM: NONE # ALARM: NONE
@ -110,7 +110,7 @@ SETSENSE TS ROTSENSE
# TEST MAGNITUDE OF E (ATTITUDE ERROR, SINGLE-PRECISION, SCALED AT PI RADIANS): # TEST MAGNITUDE OF E (ATTITUDE ERROR, SINGLE-PRECISION, SCALED AT PI RADIANS):
# IF GREATER THAN (OR EQUAL TO) PI/16 RADIANS, GO TO THE SIMPLIFIED TJET ROUTINE. # IF GREATER THAN (OR EQUAL TO) PI/16 RADIANS, GO TO THE SIMPLIFIED TJET ROUTINE.
# IF LESS THAN PI/16 RADIANS, RESCALE TO PI/4 # IF LESS THAN PI/16 RADIANS, RESCALE TO PI/4.
CAE E # PICK UP ATTITUDE ERROR FOR THIS AXIS CAE E # PICK UP ATTITUDE ERROR FOR THIS AXIS
EXTEND EXTEND
@ -144,7 +144,7 @@ SCALEDOT LXCH EDOT # EDOT IS SCALED AT PI/32 RADIANS/SECOND.
EXTEND EXTEND
SQUARE # PRODUCT SCALED AT PI(2)/2(10) RAD/SEC. SQUARE # PRODUCT SCALED AT PI(2)/2(10) RAD/SEC.
EXTEND EXTEND
MP BIT13 # SHIFT RIGHT TWO BITS TO RESCALE TO EDOTSQ MP BIT13 # SHIFT RIGHT TWO BITS TO RESCALE EDOTSQ
TS EDOTSQ # TO PI(2)/2(8) RAD(2)/SEC(2). TS EDOTSQ # TO PI(2)/2(8) RAD(2)/SEC(2).
ERRTEST CCS E # DOES BIG ERROR (THREE DEG BEYOND THE ERRTEST CCS E # DOES BIG ERROR (THREE DEG BEYOND THE
@ -239,7 +239,7 @@ ZONE5 TS L # TEMPORARILY STORE FUNCTION IN L.
EXTEND EXTEND
INDEX ADRSDIF2 # TTOAXIS AND HH ARE THE PARAMETERS UPON INDEX ADRSDIF2 # TTOAXIS AND HH ARE THE PARAMETERS UPON
MP ACCFCTZ5 # WHICH THE APPROXIMATIONS TO TJET ARE MP ACCFCTZ5 # WHICH THE APPROXIMATIONS TO TJET ARE
DDOUBL # ABASED. DDOUBL # BASED.
DDOUBL DDOUBL
DXCH HH # DOUBLE PRECISION H SCALED AT 8 SEC(2). DXCH HH # DOUBLE PRECISION H SCALED AT 8 SEC(2).
INDEX ADRSDIF2 INDEX ADRSDIF2