R3
( )
cos
(
)
- +
2 3
2
(
)
-
+
-
+
+
320 R6 f2 75 R8 5376 R2 f6 17920 f8 1344 R4 f4
f11
>
psi = collect( solve(",psi), [Delta,C], factor );
(
)
+
+
-
-
94425 R8 286720 f8 298368 R4 f4 183040 R6 f2 376320 R2 f6 (
)
+
f d C4
(
(
-
=
474560 R6 f3 768768 R4 f5 82950 R8 d 376320 R4 f4 d 609280 f8 d 240900 R8 f
-
-
-
-
-
(
+
602112 R2 f6 d 931840 f9 188800 R6 f2 d 1064448 R2 f7
+
-
+
+
) C3
f
(
)
-
+
+
-
+
246400 R6 f2 392448 R4 f4 394240 f8 526848 R2 f6 120825 R8 C2
+
f
(
)
-
-
-
+
96768 R2 f6 161280 f8 8000 R6 f2 40320 R4 f4 525 R8 C
-
350 R6 f (
)
-
15 R2 64 f2
+
)
2
4 f3 (
)
-
+
-
+
+
320 R6 f2 75 R8 5376 R2 f6 17920 f8 1344 R4 f4 C
-
)
f
(
(
(
2 (
)
+
+
-
-
167175 R8 716800 f8 592704 R4 f4 340160 R6 f2 822528 R2 f6 (
)
+
f d C4
(
+
1597440 R6 f3 2757888 R4 f5 213750 R8 d 1161216 R4 f4 d 2472960 f8 d
-
-
-
-
775650 R8 f 2096640 R2 f6 d 4121600 f9 528000 R6 f2 d 4171776 R2 f7
-
+
-
+
+
) C3
2 f (
)
-
+
+
-
+
359040 R6 f2 661248 R4 f4 931840 f8 1026816 R2 f6 160875 R8 C2
+
64 f (
)
-
+
-
+
+
1176 R2 f6 3640 f8 360 R6 f2 252 R4 f4 75 R8 C 325 R6 f (
)
-
15 R2 64 f2
+
-
)
2
4 f
3
(
)
-
+
-
+
+
320 R
6
f
2
75 R
8
5376 R
2
f
6
17920 f
8
1344 R
4
f
4
C
-
) )
>
psi = expansion( rhs("), Delta, 3, ON );
1
4
1469440 f9 C2 24192 R4 f5 C 497280 R6 f3 C4 1122880 R6 f3 C3
-
-
+
(
-
=
31040 R6 f3 C 130800 R8 C3 d 1526784 R2 f7 C2 930048 R4 f5 C2
-
-
-
+
887040 R4 f5 C4 1989120 R4 f5 C3 21504 R2 f7 C 239925 R8 f C4 5325 R8 f C
+
-
+
+
+
534750 R
8
f C
3
239925 R
8
C
4
d
471680 R
6
f
3
C
2
1863680 f
8
C
3
d
1146880 f
8
C
4
d
-
+
-
-
+
3107328 R2 f7 C3 1268736 R2 f7 C4 200925 R8 f C2 1146880 f9 C4
+
-
+
+
1494528 R2 f6 C3 d 3189760 f9 C3 71680 f9 C 10125 R8 f 887040 R4 f4 C4 d
+
-
+
-
+
1268736 R2 f6 C4 d 784896 R4 f4 C3 d 339200 R6 f2 C3 d 497280 R6 f2 C4 d
-
-
+
-
43200 R6 f3
+
)
3
f4
(
)
-
+
-
+
+
320 R6 f2 75 R8 5376 R2 f6 17920 f8 1344 R4 f4 C
(
)
f
-
>
psi = collect( rhs("), [Delta,R,d], factor );
1
4
(
)
+
75 C3 (
)
-
3199 C 1744 d 75 f (
)
+
+
-
-
71 C 2679 C2 3199 C4 135 7130 C3
R8
(
-
=
