fix: (Issue #569) page 0359

This commit is contained in:
Sudhish2607 2020-10-29 02:00:47 -05:00
parent 91d19ab387
commit 1a797dbe09

View file

@ -826,13 +826,13 @@ LOOPSIN SLOAD* RTB
# CALCULATION OF THE MATRIX DEL...... # CALCULATION OF THE MATRIX DEL......
# #
# * * __T * # * * --T *
# DEL = (IDMATRIX)COS(A)+UU (1-COS(A))+UX SIN(A) SCALED 1 # DEL = (IDMATRIX)COS(A)+UU (1-COS(A))+UX SIN(A) SCALED 1
# _ # -
# WHERE U IS A UNIT VECTOR (DP SCALED 2) ALONG THE AXIS OF ROTATION. # WHERE U IS A UNIT VECTOR (DP SCALED 2) ALONG THE AXIS OF ROTATION.
# A IS THE ANGLE OF ROTATION (DP SCALED 2) # A IS THE ANGLE OF ROTATION (DP SCALED 2)
# _ # -
# UPON ENTRY, THE STARTING ADDRESS OF U IS COF, AND A IS IN MPAC # UPON ENTRY THE STARTING ADDRESS OF U IS COF, AND A IS IN MPAC
DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
0 0
@ -842,7 +842,7 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
BDSU BOVB BDSU BOVB
DPHALF DPHALF
SIGNMPAC SIGNMPAC
PDDL # PDA = 1-COS(A) PDDL # PD4 = 1-COS(A)
# COMPUTE THE DIAGONAL COMPONENTS OF DEL # COMPUTE THE DIAGONAL COMPONENTS OF DEL
@ -853,6 +853,7 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
2 2
BOVB BOVB
SIGNMPAC SIGNMPAC
# Page 360 # Page 360
STODL KEL # UX UX(1-COS(A)) +COS(A) $1 STODL KEL # UX UX(1-COS(A)) +COS(A) $1
COF +2 COF +2