Astronomical Applications Department, U.S. Naval Observatory Precession Maple Page 33
:=
bar
%
(
)
latex
,
% "d:/dynamics/precession/torque_term_to_simplify.tex"
(
)
Collect
,
,
,
% [
]
,
,
,
,
-
b
a
+
b
a
+
+
b
2
b a
a
2
U A
C
simplify loc
+
(
)
- +
+ -
a
2
( )
cos
2
a
b
2
( )
cos
2
b A
C
( )
sin
-
a
b
( )
sin
U (
)
+
a
b
-
-
1
3
( )
cos
(
)
-
a
b A
C
( )
sin
( )
cos
(
)
-
a
b
( )
sin
(
)
+
+
a
2
a b
b
2
a
2
h (
)
- +
1
A
T
+
+
(
)
location
,
%
(
)
remove
,
,
has
(
)
select
,
,
has % U
-
b
a
[ ]
1
(
)
subsop
,
=
%
(
)
map
,
factor
(
)
op
,
% %%
%%
(
)
-
a
b (
)
-
+ +
A
C
1
2 A
C
( )
cos
2
U (
)
+
a
b
( )
sin
-
-
1
3
( )
cos
(
)
-
a
b A
C
( )
sin
( )
cos
(
)
-
a
b
( )
sin
(
)
+
+
a
2
a b
b
2
a
2
h (
)
- +
1
A
T
+
+
(
)
latex
,
% "d:/dynamics/precession/torque_term_simplified.tex"
Check:
(
)
simplify
-
%
bar
0
(
)
subs
,
subslist
(
)
subsop
,
=
L
%% torque_terms
+
( )
cos
K
y
K
x
( )
sin
-
+
K
y
( )
sin
( )
cos
K
x
P
(
)
-
+
(
)
cos
Z
Y
(
)
sin
( )
cos
X
(
)
sin
( )
sin
=
(
)
-
a
b (
)
-
+ +
A
C
1
2 A
C
( )
cos
2
(
)
+
( )
sin
h
( )
cos
a (
)
+
a
b
( )
sin
-
-
1
3
( )
cos
(
)
-
a
b A
C
( )
sin
( )
cos
(
)
-
a
b
( )
sin
(
)
+
+
a
2
a b
b
2
a
2
h (
)
- +
1
A
T
+
+
+
X
( )
cos
Y
( )
sin
-
-
+
(
)
sin
Z
(
)
cos
Y
( )
cos
( )
sin
(
)
cos
X
:=
torque_terms
%
This looks good. Now define
Page 33
