Astronomical Applications Department, U.S. Naval Observatory Sensitivity Integral Page 15
# make sure we've not screwed up anything
debug_print(``,`error check:`,0,factor(expand(tmp4-parts[4])));
[0] Here we go...
[0] Set of denominators for parts[4]:
1
(
)
+
2 s
r (
)
+
1
g
5
1
(
)
-
s
r g
5
1
(
)
+
1
g
5
1
(
)
- +
1
g
5
1
(
)
+
s
r g
5
1
(
)
-
s
r
5
1
g
5
1
s
5
1
(
)
+
s
r
5
,
,
,
,
,
,
,
,
,
{
1
(
)
-
2 s
r (
)
- +
1
g
5
1
(
)
+
2 s
r (
)
- +
1
g
5
1
(
)
-
2 s
r (
)
+
1
g
5
,
,
}
[0] simplifying...
[0] simplified expression:
-
+
6
(
)
sin (
)
+ +
2 s
r
r g
2
6
(
)
sin (
)
+ +
2 s
r
r g
1
(
)
+
2 s
r (
)
+
1
g
5
-
+
3
32
(
)
sin 2 (
)
-
s
r g
1
3
32
(
)
sin 2 (
)
-
s
r g
2
(
)
-
s
r g
5
12
-
+
(
)
sin r (
)
+
1
g
2
(
)
sin r (
)
+
1
g
1
(
)
+
1
g
5
r
5
+
-
12
-
(
)
sin r (
)
- +
1
g
2
(
)
sin r (
)
- +
1
g
1
(
)
- +
1
g
5
r
5
-
+
3
32
(
)
sin 2 (
)
+
s
r g
1
3
32
(
)
sin 2 (
)
+
s
r g
2
(
)
+
s
r g
5
-
+
-
+
3
32
(
)
sin 2 (
)
-
s
r
1
3
32
(
)
sin 2 (
)
-
s
r
2
(
)
-
s
r
5
3
16
-
(
)
sin 2 r g
2
(
)
sin 2 r g
1
r
5
g
5
+
-
-
+
3
8
(
)
sin 2 s
2
3
8
(
)
sin 2 s
1
s
5
-
3
32
(
)
sin 2 (
)
+
s
r
2
3
32
(
)
sin 2 (
)
+
s
r
1
(
)
+
s
r
5
+
+
-
+
6
(
)
sin (
)
+ -
2 s
r
r g
1
6
(
)
sin (
)
+ -
2 s
r
r g
2
(
)
-
2 s
r (
)
- +
1
g
5
+
-
6
(
)
sin (
)
- +
2 s
r
r g
2
6
(
)
sin (
)
- +
2 s
r
r g
1
(
)
+
2 s
r (
)
- +
1
g
5
+
-
+
6
(
)
sin (
)
- -
2 s
r
r g
2
6
(
)
sin (
)
- -
2 s
r
r g
1
(
)
-
2 s
r (
)
+
1
g
5
+
1
80
-
-
+
15
(
)
sin 2 r
1
15
(
)
sin 2 r
2
8 r
5
1
5
8 r
5
2
5
r
5
+
a
4
Page 15
