Metrics for Equirectangular approximation to distance on a great circle

start0.0ms (0%)

Memory: 0.0MiB live, 0.0MiB allocated

analyze0.0ms (0%)

Memory

0.4MiB live, 0.4MiB allocated

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.8%	0.2%	0%	0%	0%	0
100%	99.8%	0%	0.2%	0%	0%	0%	1

Compiler

Compiled 34 to 16 computations (52.9% saved)

sample1.5s (12.3%)

Memory

32.4MiB live, 1 303.3MiB allocated

Samples

746.0ms	6 580×	0	valid
335.0ms	1 676×	1	valid

Precisions

Click to see histograms. Total time spent on operations: 770.0ms

ival-hypot: 200.0ms (26% of total)

ival-cos: 147.0ms (19.1% of total)

ival-mult: 125.0ms (16.2% of total)

ival-sub: 102.0ms (13.2% of total)

ival-add: 70.0ms (9.1% of total)

ival-div: 69.0ms (9% of total)

adjust: 44.0ms (5.7% of total)

ival-true: 6.0ms (0.8% of total)

exact: 5.0ms (0.6% of total)

ival-assert: 3.0ms (0.4% of total)

Bogosity

explain280.0ms (2.3%)

Memory

-2.6MiB live, 279.2MiB allocated

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Example	Subexpression
179	0	-	-	`(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))`
62	129	(-5.589873904587644e-187 -3.2580913321098873e+294 5.353396490412534e+196 -1.9328723497019732e+188 1.4573657926054655e-124)	-	`(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))`
0	0	-	-	`(.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))`
0	0	-	-	`lambda2`
0	0	-	-	`(+.f64 phi1 phi2)`
0	0	-	-	`phi2`
0	0	-	-	`(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))`
0	0	-	-	`(-.f64 lambda1 lambda2)`
0	0	-	-	`(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))`
0	0	-	-	`R`
0	0	-	-	`lambda1`
0	0	-	-	`phi1`
0	0	-	-	`(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))`
0	0	-	-	`#s(literal 2 binary64)`
0	0	-	-	`(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))`
0	0	-	-	`(-.f64 phi1 phi2)`
0	0	-	-	`(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`cos.f64`	`(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))`	sensitivity	191	0
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))`	oflow-rescue	179	0
↳	`(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))`	overflow	119
↳	`(.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))`	overflow	105
↳	`(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))`	overflow	179

Confusion

	Predicted +	Predicted -
+	116	0
-	103	37

Precision

0.5296803652968036

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	116	0	0
-	103	0	37

Precision?

0.5296803652968036

Recall?

1.0

Freqs

test

number	freq
0	37
1	68
2	151

Total Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	1	0	0
-	0	0	0

Precision?

1.0

Recall?

1.0

Samples

121.0ms	372×	1	valid
17.0ms	140×	0	valid

Compiler

Compiled 351 to 55 computations (84.3% saved)

Precisions

Click to see histograms. Total time spent on operations: 99.0ms

ival-mult: 24.0ms (24.2% of total)

ival-cos: 23.0ms (23.2% of total)

ival-hypot: 13.0ms (13.1% of total)

ival-sub: 12.0ms (12.1% of total)

adjust: 12.0ms (12.1% of total)

ival-add: 8.0ms (8.1% of total)

ival-div: 6.0ms (6.1% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

preprocess434.0ms (3.6%)

Memory

-4.5MiB live, 197.7MiB allocated

Algorithm

1×	egg-herbie

Rules

15 840×	`lower-fma.f64`
15 840×	`lower-fma.f32`
2 462×	`lower-*.f32`
2 454×	`lower-*.f64`
2 156×	`unsub-neg`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	149	667
1	357	661
2	923	645
3	4473	645
4	7816	645
0	17	32
0	28	32
1	43	32
2	88	32
3	302	32
4	1055	32
5	3348	32
6	6812	32
0	8149	16

Stop Event

1×	iter limit
1×	node limit
1×	iter limit
1×	node limit

Calls

Call 1

Inputs

(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))

Outputs

(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))

(*.f64 R (hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))

Symmetry

(negabs R)

(sort lambda1 lambda2)

(sort phi1 phi2)

Compiler

Compiled 37 to 17 computations (54.1% saved)

eval0.0ms (0%)

Memory: 0.3MiB live, 0.3MiB allocated
Compiler: Compiled 5 to 5 computations (0% saved)

prune1.0ms (0%)

Memory

1.1MiB live, 1.1MiB allocated

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	56.9%	(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))

Status

Accuracy

Program

▶

56.9%

(*.f64 R (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))

Compiler

Compiled 37 to 17 computations (54.1% saved)

simplify398.0ms (3.3%)

Memory

-0.1MiB live, 156.2MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 4 expressions of interest:

New	Metric	Score
cost-diff	0	(.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
cost-diff	0	(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
cost-diff	128	(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
cost-diff	2880	(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))

Rules

15 840×	`lower-fma.f64`
15 840×	`lower-fma.f32`
2 462×	`lower-*.f32`
2 454×	`lower-*.f64`
2 156×	`unsub-neg`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	17	155
0	28	155
1	43	155
2	88	155
3	302	155
4	1055	155
5	3348	155
6	6812	155
0	8149	122

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Calls

Call 1

Inputs
(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
R
(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))
(+.f64 phi1 phi2)
phi1
phi2
#s(literal 2 binary64)
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))
(-.f64 phi1 phi2)

Outputs
(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(.f64 R (hypot.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2)))
R
(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(hypot.f64 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (-.f64 phi1 phi2))
(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))
(+.f64 phi1 phi2)
phi1
phi2
#s(literal 2 binary64)
(*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))
(-.f64 phi1 phi2)

localize118.0ms (1%)

Memory

29.8MiB live, 67.2MiB allocated

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.20703125	(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))
accuracy	0.21484375	(.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
accuracy	13.737482053809643	(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy	41.42763377733301	(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))

Samples

56.0ms	186×	1	valid
9.0ms	70×	0	valid

Compiler

Compiled 157 to 19 computations (87.9% saved)

Precisions

Click to see histograms. Total time spent on operations: 47.0ms

ival-mult: 12.0ms (25.5% of total)

ival-cos: 11.0ms (23.4% of total)

ival-hypot: 7.0ms (14.9% of total)

adjust: 6.0ms (12.7% of total)

ival-sub: 4.0ms (8.5% of total)

ival-add: 4.0ms (8.5% of total)

ival-div: 3.0ms (6.4% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

series52.0ms (0.4%)

Memory

-31.1MiB live, 52.2MiB allocated

Counts

6 → 276

Calls

Call 1

Inputs
#<alt (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))>
#<alt (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))>
#<alt (.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))>
#<alt (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))>
#<alt (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))>
#<alt (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))>

Outputs
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))>
#<alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))>
#<alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))>
#<alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))>
#<alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))>
#<alt (+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (pow phi1 2)>
#<alt (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))>
#<alt (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (pow phi1 2)>
#<alt (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))>
#<alt (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))>
#<alt (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))>
#<alt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))>
#<alt (+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (pow phi2 2)>
#<alt (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))>
#<alt (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (pow phi2 2)>
#<alt (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))>
#<alt (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))>
#<alt (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))>
#<alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))>
#<alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))>
#<alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))>
#<alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))>
#<alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))>
#<alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))>

Calls

69 calls:

Time	Variable		Point	Expression
6.0ms	lambda1	@	0	(sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))
3.0ms	lambda2	@	-inf	(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
2.0ms	R	@	0	(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
2.0ms	phi1	@	-inf	(* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))
2.0ms	phi1	@	0	(sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))

simplify435.0ms (3.6%)

Memory

1.3MiB live, 349.0MiB allocated

Algorithm

1×	egg-herbie

Rules

10 254×	`lower-fma.f64`
10 254×	`lower-fma.f32`
6 506×	`lower-*.f64`
6 506×	`lower-*.f32`
5 644×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	884	10001
1	2974	9253
2	7796	9253
0	8068	8635

Stop Event

1×	iter limit
1×	node limit

Counts

276 → 274

Calls

Call 1

Inputs
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))
(+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))
(+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(pow phi2 2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(pow phi2 2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))

Outputs
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(-.f64 (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (fma.f64 (neg.f64 (.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (-.f64 (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 lambda1 lambda2) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 (neg.f64 (.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 (neg.f64 (.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda1 (fma.f64 lambda2 (neg.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 (.f64 lambda1 lambda1)))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(-.f64 (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (fma.f64 (neg.f64 (.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (neg.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (fma.f64 (neg.f64 (.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 (neg.f64 (.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(.f64 lambda2 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 phi1 phi2) (/.f64 (-.f64 phi1 phi2) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 (.f64 lambda2 lambda2))))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(neg.f64 (.f64 lambda2 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2)) (neg.f64 lambda2))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (hypot.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64))) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64)))))) (hypot.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64))) (/.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)))))))))) (hypot.f64 phi2 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))) (/.f64 phi2 (neg.f64 phi1))) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 (.f64 phi1 phi1)))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) (neg.f64 phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi1) phi2) (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi1) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (fma.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64))) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64)))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64))) (/.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)))))))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (/.f64 phi1 (neg.f64 phi2))) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 (.f64 phi2 phi2)))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 (neg.f64 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) (neg.f64 phi2)) phi2))
(+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -2 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda2 lambda1)) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda2 lambda1)) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda1 lambda1) (fma.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(.f64 (.f64 lambda1 lambda1) (fma.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (fma.f64 (-.f64 phi1 phi2) (/.f64 (-.f64 phi1 phi2) (.f64 lambda1 lambda1)) (fma.f64 (.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(.f64 (.f64 lambda1 lambda1) (fma.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (fma.f64 (-.f64 phi1 phi2) (/.f64 (-.f64 phi1 phi2) (.f64 lambda1 lambda1)) (fma.f64 (.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda1 lambda1) (fma.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda1)) lambda1)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda1)) lambda1)))
(+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -2 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda2 lambda2) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(.f64 (.f64 lambda2 lambda2) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (fma.f64 (-.f64 phi1 phi2) (/.f64 (-.f64 phi1 phi2) (.f64 lambda2 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(.f64 (.f64 lambda2 lambda2) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (fma.f64 (-.f64 phi1 phi2) (/.f64 (-.f64 phi1 phi2) (.f64 lambda2 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda2 lambda2) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda2)) lambda2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda2)) lambda2)))
(+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))
(fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))
(+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(fma.f64 phi1 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 phi1 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) #s(literal 1 binary64)))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (fma.f64 phi2 (/.f64 phi2 (.f64 phi1 phi1)) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)))))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (fma.f64 phi2 (/.f64 phi2 (.f64 phi1 phi1)) (/.f64 (*.f64 phi2 #s(literal -2 binary64)) phi1)))))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) #s(literal 1 binary64)))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(.f64 (.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 2 binary64) phi2) (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) phi1)) phi1)))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(.f64 (.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 2 binary64) phi2) (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) phi1)) phi1)))
(+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))
(+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(fma.f64 phi2 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 phi2 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))
(pow phi2 2)
(*.f64 phi2 phi2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) #s(literal 1 binary64)))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (fma.f64 phi1 (/.f64 phi1 (.f64 phi2 phi2)) (fma.f64 phi1 (/.f64 #s(literal -2 binary64) phi2) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1 binary64) (fma.f64 phi1 (/.f64 phi1 (.f64 phi2 phi2)) (fma.f64 phi1 (/.f64 #s(literal -2 binary64) phi2) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(pow phi2 2)
(*.f64 phi2 phi2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) #s(literal 1 binary64)))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(.f64 (.f64 phi2 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 2 binary64) phi1) (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) phi2)) phi2)))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(.f64 (.f64 phi2 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 2 binary64) phi1) (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) phi2)) phi2)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) R)
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) R) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) R)))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 R lambda1) (fma.f64 (neg.f64 (.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 R lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) R))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (-.f64 (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (.f64 R (fma.f64 (.f64 (.f64 lambda1 lambda2) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 (neg.f64 (.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 (neg.f64 (.f64 lambda2 lambda2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) R))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) R) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 R (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 (.f64 lambda1 lambda1)))) (/.f64 (.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) R) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (fma.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) R (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) R)) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (-.f64 (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (+.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) lambda1)) (neg.f64 lambda1)))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) R)
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) R) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) R)))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 R lambda2) (fma.f64 (neg.f64 (.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) R))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (.f64 R (fma.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (fma.f64 (neg.f64 (.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 (neg.f64 (.f64 lambda1 lambda1)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))))) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) R))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) R) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) lambda1) (/.f64 R (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 (.f64 lambda2 lambda2)))) (/.f64 (.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) R) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) R)
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) R (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) R)) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) R (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (+.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 (hypot.f64 phi2 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) R)
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (.f64 (.f64 phi1 R) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))))) (.f64 (hypot.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) R))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64))) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))))))) (.f64 (hypot.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) R))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64))) (/.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) R)))) (.f64 (hypot.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))) R))
(* R phi1)
(*.f64 phi1 R)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 R (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))) (-.f64 R (/.f64 (*.f64 phi2 R) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 R (fma.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 (.f64 phi1 phi1)))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))))) (-.f64 R (/.f64 (.f64 phi2 R) phi1))))
(* -1 (* R phi1))
(*.f64 phi1 (neg.f64 R))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 R phi1)) (.f64 phi2 R)) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (-.f64 (.f64 phi2 R) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 R (fma.f64 phi2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi1) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) R)
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 phi2 R) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))))) (.f64 (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) R))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (fma.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64))) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))))))) (.f64 (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) R))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64))) (/.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) R)))) (.f64 (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) R))
(* R phi2)
(*.f64 phi2 R)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 (.f64 phi2 phi2)))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))))) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(* -1 (* R phi2))
(*.f64 phi2 (neg.f64 R))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (.f64 phi1 R)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (fma.f64 phi1 R (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 R (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (neg.f64 phi2))) phi2))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -2 binary64)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda2 lambda1))))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda2 lambda1))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda1 lambda1) (fma.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(.f64 (.f64 lambda1 lambda1) (fma.f64 (.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(.f64 (.f64 lambda1 lambda1) (fma.f64 (.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda1 lambda1) (fma.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda2 lambda2) lambda1))) lambda1)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda2 lambda2) lambda1))) lambda1)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal -2 binary64)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda1 lambda2)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) lambda1 lambda2)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda2 lambda2) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(.f64 (.f64 lambda2 lambda2) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2))))
(.f64 (.f64 lambda2 lambda2) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda2 lambda2) (fma.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1) (/.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 lambda1) lambda2))) lambda2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 #s(literal 2 binary64) lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 lambda1 lambda1) lambda2))) lambda2)))
(* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(-.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(fma.f64 phi1 (fma.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)))
(fma.f64 phi1 (fma.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 phi1 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2))
(.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(fma.f64 (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(fma.f64 phi2 (fma.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))) (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)))
(fma.f64 phi2 (fma.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 phi2 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 lambda2 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 lambda2 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 (+ phi1 phi2)))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 lambda2 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2))) (neg.f64 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))
(+ (* -1/2 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2) (.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (-.f64 lambda1 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* -1/8 (* phi1 (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 lambda1 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))
(+ (* phi1 (+ (* -1/2 (* (sin (* 1/2 phi2)) (- lambda1 lambda2))) (* phi1 (+ (* -1/8 (* (cos (* 1/2 phi2)) (- lambda1 lambda2))) (* 1/48 (* phi1 (* (sin (* 1/2 phi2)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi2)) (- lambda1 lambda2)))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)) (.f64 (.f64 #s(literal 1/48 binary64) phi1) (.f64 (-.f64 lambda1 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 lambda1 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi2 (* -1 phi1)))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* -1/8 (* phi2 (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (-.f64 lambda1 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal -1/8 binary64) phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2))) (* phi2 (+ (* -1/8 (* (cos (* 1/2 phi1)) (- lambda1 lambda2))) (* 1/48 (* phi2 (* (sin (* 1/2 phi1)) (- lambda1 lambda2)))))))) (* (cos (* 1/2 phi1)) (- lambda1 lambda2)))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 (.f64 #s(literal 1/48 binary64) phi2) (.f64 (-.f64 lambda1 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/8 binary64) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 lambda1 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (+ phi1 phi2))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))
(* (cos (* 1/2 (- phi1 (* -1 phi2)))) (- lambda1 lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))

rewrite403.0ms (3.3%)

Memory

-16.7MiB live, 454.8MiB allocated

Rules

7 434×	`lower-fma.f64`
7 434×	`lower-fma.f32`
6 244×	`lower-*.f32`
6 236×	`lower-*.f64`
3 492×	`lower-/.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	17	128
0	28	86
1	97	86
2	720	86
0	8872	76

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Counts

6 → 300

Calls

Call 1

Inputs
(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))
(*.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))

Outputs
(exp.f64 (.f64 (log.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(hypot.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 phi1 phi2))
(hypot.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (exp.f64 (log.f64 (-.f64 phi1 phi2))))
(hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(hypot.f64 (-.f64 phi1 phi2) (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(hypot.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 phi1 phi2))
(hypot.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (-.f64 phi1 phi2))))
(hypot.f64 (exp.f64 (log.f64 (-.f64 phi1 phi2))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(hypot.f64 (exp.f64 (log.f64 (-.f64 phi1 phi2))) (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(/.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(/.f64 (sqrt.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (sqrt.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (neg.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(/.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(/.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (neg.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(pow.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #s(literal 1/2 binary64))
(.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(.f64 (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(.f64 (sqrt.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(.f64 (sqrt.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(.f64 (pow.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)))
(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(+.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(+.f64 (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (neg.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(+.f64 (.f64 (-.f64 phi1 phi2) phi1) (fma.f64 (-.f64 phi1 phi2) (neg.f64 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(+.f64 (.f64 phi1 (-.f64 phi1 phi2)) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) phi1)) (neg.f64 (.f64 (-.f64 phi1 phi2) phi2)))
(+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 phi1 (-.f64 phi1 phi2))) (.f64 phi2 (-.f64 phi2 phi1)))
(-.f64 (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(-.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(fma.f64 (-.f64 lambda1 lambda2) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 phi1 (-.f64 phi1 phi2) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (-.f64 phi1 phi2) phi1 (fma.f64 (-.f64 phi1 phi2) (neg.f64 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (neg.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)) (.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) phi1) (fma.f64 (-.f64 phi1 phi2) (neg.f64 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)) (.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 #s(literal 1 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 #s(literal 1 binary64) (.f64 (-.f64 phi1 phi2) phi1) (fma.f64 (-.f64 phi1 phi2) (neg.f64 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) phi1) (fma.f64 (-.f64 phi1 phi2) (neg.f64 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (-.f64 lambda1 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) #s(literal 2 binary64)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (+.f64 phi1 phi2))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (+.f64 phi1 phi2) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) #s(literal 2 binary64)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (+.f64 phi1 phi2) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (+.f64 phi1 phi2) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (.f64 (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (.f64 phi2 phi2) (.f64 phi1 (.f64 phi1 phi1)))) (.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1)) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (.f64 phi2 phi2) (.f64 phi1 (.f64 phi1 phi1)))) (/.f64 (-.f64 phi1 phi2) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (.f64 phi2 phi2) (.f64 phi1 (.f64 phi1 phi1)))) (.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1)) phi1) (fma.f64 (-.f64 phi1 phi2) (neg.f64 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (pow.f64 (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (.f64 phi2 phi2) (.f64 phi1 (.f64 phi1 phi1)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (exp.f64 (log.f64 (-.f64 phi1 phi2))) (exp.f64 (log.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 1 binary64)) (/.f64 (-.f64 phi1 phi2) (+.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (-.f64 lambda1 lambda2) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) #s(literal 2 binary64)) (-.f64 lambda1 lambda2)) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) #s(literal 2 binary64)) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (pow.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (.f64 (-.f64 lambda1 lambda2) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (/.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))) (neg.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (-.f64 phi1 phi2) (fma.f64 phi2 (.f64 phi2 phi2) (.f64 phi1 (.f64 phi1 phi1)))) (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (-.f64 phi1 phi2) (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (/.f64 (-.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (.f64 phi2 phi2) (.f64 phi1 (.f64 phi1 phi1)))) (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (.f64 phi2 phi2) (.f64 phi1 (.f64 phi1 phi1))))) (.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1)) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 phi1 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (.f64 phi1 #s(literal 1 binary64)) (-.f64 phi1 phi2) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (.f64 phi1 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (.f64 phi1 (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (.f64 phi2 phi2) (.f64 phi1 (.f64 phi1 phi1))))) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1)) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(fma.f64 (.f64 (-.f64 phi1 phi2) (/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 phi2 (.f64 phi2 phi2) (.f64 phi1 (.f64 phi1 phi1))))) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(neg.f64 (/.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (neg.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(neg.f64 (/.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(neg.f64 (/.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(neg.f64 (/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(/.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))
(/.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))) (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (-.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))
(/.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(/.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (neg.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(/.f64 (-.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(/.f64 (fma.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)))))
(/.f64 (fma.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (+.f64 phi1 phi2)) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 phi1 phi2))))
(/.f64 (fma.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)))))
(/.f64 (fma.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2)) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (+.f64 phi1 phi2) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2))))
(/.f64 (fma.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2))))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))))
(/.f64 (fma.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (+.f64 phi1 phi2) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 phi1 phi2)))
(/.f64 (fma.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))))
(/.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (.f64 (+.f64 lambda1 lambda2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))))) (.f64 (+.f64 lambda1 lambda2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)))))
(/.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (+.f64 phi1 phi2)) (.f64 (+.f64 lambda1 lambda2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (.f64 (+.f64 lambda1 lambda2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (+.f64 phi1 phi2))))
(/.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (.f64 (+.f64 lambda1 lambda2) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))))) (.f64 (+.f64 lambda1 lambda2) (.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)))))
(/.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2)) (.f64 (+.f64 lambda1 lambda2) (.f64 (+.f64 phi1 phi2) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (.f64 (+.f64 lambda1 lambda2) (*.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2))))
(/.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (+.f64 lambda1 lambda2) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2))))) (.f64 (+.f64 lambda1 lambda2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))))
(/.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (+.f64 phi1 phi2) (.f64 (+.f64 lambda1 lambda2) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (+.f64 lambda1 lambda2) (+.f64 phi1 phi2)))
(/.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (+.f64 lambda1 lambda2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (+.f64 lambda1 lambda2) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))))
(/.f64 (fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (+.f64 lambda1 lambda2) (.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1))) (+.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (+.f64 phi1 phi2)) (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (+.f64 phi1 phi2)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (+.f64 lambda1 lambda2) (.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (+.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (+.f64 phi1 phi2)) (+.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (+.f64 lambda1 lambda2) (.f64 (.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (.f64 (+.f64 phi1 phi2) (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1))) (+.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (.f64 (+.f64 phi1 phi2) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2)) (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (.f64 (+.f64 phi1 phi2) (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (+.f64 lambda1 lambda2) (.f64 (.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (*.f64 (+.f64 phi1 phi2) (+.f64 phi1 phi2)) (+.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (.f64 (-.f64 phi1 phi2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (-.f64 phi1 phi2))) (+.f64 lambda1 lambda2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (+.f64 phi1 phi2) (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (+.f64 phi1 phi2) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (.f64 (+.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (+.f64 lambda1 lambda2) (.f64 (+.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (+.f64 phi1 phi2) (+.f64 lambda1 lambda2)))
(/.f64 (fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (fma.f64 (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (+.f64 lambda1 lambda2) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (.f64 phi1 phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 (fma.f64 phi2 (+.f64 phi1 phi2) (*.f64 phi1 phi1)) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (neg.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (neg.f64 (neg.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(/.f64 (neg.f64 (-.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (fma.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (.f64 (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))))
(/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))) (+.f64 (/.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(/.f64 (.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))) #s(literal 1 binary64)) (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) #s(literal 1 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) #s(literal -1 binary64))
(.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))))
(.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))) (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(.f64 (neg.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2)))))))
(.f64 (-.f64 (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(.f64 (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2))) (fma.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 phi1 phi2)))
(/.f64 (.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(/.f64 (.f64 R (sqrt.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (neg.f64 (-.f64 phi1 phi2))))))
(.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R)
(.f64 R (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(.f64 (pow.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) (.f64 (pow.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)) R))
(.f64 (.f64 R (pow.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 1/4 binary64)))
(+.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) lambda1))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)))))
(+.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 lambda1 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 lambda2 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))))
(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))
(+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 lambda1 lambda2) lambda1)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (neg.f64 (.f64 (-.f64 lambda1 lambda2) lambda2))))
(+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 lambda1 (-.f64 lambda1 lambda2))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 lambda2 (-.f64 lambda2 lambda1))))
(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 lambda2)))
(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 lambda2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) lambda1)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (.f64 lambda1 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 lambda2 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(+.f64 (.f64 (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) lambda1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (neg.f64 (.f64 (-.f64 lambda1 lambda2) lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(+.f64 (.f64 (.f64 lambda1 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (.f64 lambda2 (-.f64 lambda2 lambda1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(+.f64 (.f64 lambda1 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (.f64 (neg.f64 lambda2) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(+.f64 (.f64 (neg.f64 lambda2) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (.f64 lambda1 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(exp.f64 (.f64 #s(literal 2 binary64) (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(fma.f64 lambda1 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (neg.f64 lambda2) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) lambda1)) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) (.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)))))
(fma.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 lambda1 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 lambda2 (-.f64 lambda2 lambda1)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(fma.f64 (neg.f64 lambda2) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 lambda1 lambda2) lambda1) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (neg.f64 (*.f64 (-.f64 lambda1 lambda2) lambda2))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 lambda1 (-.f64 lambda1 lambda2)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 lambda2 (-.f64 lambda2 lambda1))))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 lambda2)))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 lambda2) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) lambda1))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) lambda1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (neg.f64 (.f64 (-.f64 lambda1 lambda2) lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) lambda1)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(fma.f64 (.f64 lambda1 (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (.f64 lambda2 (-.f64 lambda2 lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(fma.f64 (.f64 (.f64 lambda1 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (.f64 lambda2 (-.f64 lambda2 lambda1)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(/.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (+.f64 lambda1 lambda2))
(/.f64 (neg.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (neg.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (.f64 (neg.f64 lambda2) (-.f64 (neg.f64 lambda2) lambda1))))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2))))) (+.f64 lambda1 lambda2))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))) (+.f64 lambda1 lambda2))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (+.f64 lambda1 lambda2))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2)))
(/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (.f64 (+.f64 lambda1 lambda2) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))) (.f64 (+.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))
(/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 lambda1 lambda2) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 lambda1 lambda2) (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))) (+.f64 lambda1 lambda2))
(/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (neg.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (neg.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (neg.f64 (+.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2))) (neg.f64 (+.f64 lambda1 lambda2)))
(pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) #s(literal 1 binary64))
(pow.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(.f64 (-.f64 lambda1 lambda2) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))
(.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))
(.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))
(.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))
(.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (-.f64 lambda1 lambda2))
(.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal -1/2 binary64)))
(+.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)))
(+.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1))
(+.f64 (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(fma.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (neg.f64 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1 (.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)))
(fma.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2) (.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1))
(fma.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 lambda1 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) lambda2 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1))
(/.f64 (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 lambda2) (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (*.f64 (neg.f64 lambda2) (-.f64 (neg.f64 lambda2) lambda1))))
(/.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (+.f64 lambda1 lambda2))
(/.f64 (neg.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (-.f64 (.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))) (.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1)) (.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) lambda1) (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 lambda2))))
(/.f64 (-.f64 (.f64 (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (-.f64 (.f64 lambda1 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (+.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2))) (neg.f64 (+.f64 lambda1 lambda2)))
(pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))
(.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (.f64 (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))
(.f64 (.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))
(.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) (pow.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))

eval180.0ms (1.5%)

Memory: 17.1MiB live, 179.6MiB allocated
Compiler: Compiled 32 675 to 2 656 computations (91.9% saved)

prune152.0ms (1.3%)

Memory

-26.1MiB live, 254.5MiB allocated

Pruning

24 alts after pruning (24 fresh and 0 done)

	Pruned	Kept	Total
New	668	24	692
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	669	24	693

Accuracy

97.2%

Counts

693 → 24

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.9%	(.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R)
	37.3%	(.f64 R (hypot.f64 (-.f64 phi1 phi2) (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
	56.9%	(.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
	51.3%	(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) #s(approx (cos (/ (+ phi1 phi2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
	21.9%	(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
	55.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
	36.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
	64.8%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))))
▶	71.9%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
	12.7%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2))) (neg.f64 lambda2))))
▶	11.0%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
	9.7%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
	20.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
	12.4%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))))
	20.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
	35.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
	34.2%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1)))
▶	14.6%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2)))
	20.5%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
	9.7%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
▶	2.1%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
	60.4%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
▶	32.9%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
	60.4%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))

Compiler

Compiled 1 070 to 630 computations (41.1% saved)

simplify176.0ms (1.5%)

Memory

20.1MiB live, 175.9MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 18 expressions of interest:

New	Metric	Score
cost-diff	0	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)
cost-diff	0	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2)))
cost-diff	128	(.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))
cost-diff	7232	(-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2))
cost-diff	0	(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
cost-diff	0	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
cost-diff	0	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))
cost-diff	0	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
cost-diff	0	(-.f64 R (*.f64 phi1 (/.f64 R phi2)))
cost-diff	0	(neg.f64 phi2)
cost-diff	0	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
cost-diff	832	(.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2))))
cost-diff	0	(*.f64 phi2 R)
cost-diff	0	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
cost-diff	0	(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
cost-diff	0	(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
cost-diff	0	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
cost-diff	0	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))

Rules

7 124×	`lower-fma.f64`
7 124×	`lower-fma.f32`
4 372×	`lower-*.f32`
4 346×	`lower-*.f64`
1 098×	`lower-+.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	47	500
0	74	500
1	137	500
2	295	479
3	1050	475
4	4223	471
0	8407	359

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Calls

Call 1

Inputs
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
phi1
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
#s(literal 1/2 binary64)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 phi2 R)
phi2
R
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2))))
(neg.f64 phi2)
phi2
(-.f64 R (*.f64 phi1 (/.f64 R phi2)))
R
(*.f64 phi1 (/.f64 R phi2))
phi1
(/.f64 R phi2)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
(neg.f64 lambda2)
lambda2
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2)))
(.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
R
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R lambda1)
lambda1
lambda2
(neg.f64 lambda2)

Outputs
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
phi1
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))
(*.f64 phi2 R)
(*.f64 R phi2)
phi2
R
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (-.f64 (.f64 R phi1) (.f64 R phi2)))
(.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2))))
(-.f64 (.f64 R phi1) (.f64 R phi2))
(neg.f64 phi2)
phi2
(-.f64 R (*.f64 phi1 (/.f64 R phi2)))
(-.f64 R (/.f64 (*.f64 R phi1) phi2))
R
(*.f64 phi1 (/.f64 R phi2))
(/.f64 (*.f64 R phi1) phi2)
phi1
(/.f64 R phi2)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
(neg.f64 lambda2)
lambda2
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (/.f64 (.f64 R lambda1) lambda2) R))))
(.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))
(.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (/.f64 (.f64 R lambda1) lambda2) R)))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 R (/.f64 (*.f64 R lambda1) lambda2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
R
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))
(*.f64 R lambda1)
lambda1
lambda2
(neg.f64 lambda2)

localize222.0ms (1.8%)

Memory

-18.0MiB live, 188.2MiB allocated

Localize:

Found 18 expressions of interest:

New	Metric	Score
accuracy	5.071143146215588	(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
accuracy	5.355561670684766	(.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))
accuracy	13.73748205380964	(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
accuracy	55.12189679852528	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2)))
accuracy	0.03125	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
accuracy	0.13671875	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
accuracy	13.73748205380964	(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
accuracy	59.358558820574885	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))
accuracy	0.00390625	(-.f64 R (*.f64 phi1 (/.f64 R phi2)))
accuracy	5.722704669343882	(*.f64 phi1 (/.f64 R phi2))
accuracy	6.0152991248096805	(.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2))))
accuracy	62.90719888855278	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
accuracy	0	(*.f64 phi2 R)
accuracy	42.91337369901956	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
accuracy	0.00390625	(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
accuracy	0.03125	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
accuracy	0.109375	(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
accuracy	22.663211456581507	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))

Samples

140.0ms	186×	1	valid
20.0ms	70×	0	valid

Compiler

Compiled 432 to 37 computations (91.4% saved)

Precisions

Click to see histograms. Total time spent on operations: 101.0ms

ival-cos: 32.0ms (31.5% of total)

ival-mult: 28.0ms (27.6% of total)

adjust: 10.0ms (9.9% of total)

ival-hypot: 10.0ms (9.9% of total)

ival-div: 9.0ms (8.9% of total)

ival-sub: 6.0ms (5.9% of total)

ival-add: 3.0ms (3% of total)

ival-neg: 2.0ms (2% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

series85.0ms (0.7%)

Memory

-5.0MiB live, 69.2MiB allocated

Counts

21 → 900

Calls

Call 1

Inputs
#<alt (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))>
#<alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))>
#<alt (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))>
#<alt (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))>
#<alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))>
#<alt (*.f64 phi2 R)>
#<alt (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2))))>
#<alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))>
#<alt (neg.f64 phi2)>
#<alt (-.f64 R (*.f64 phi1 (/.f64 R phi2)))>
#<alt (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))>
#<alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))>
#<alt (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))>
#<alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))>
#<alt (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2))>
#<alt (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))>
#<alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2)))>
#<alt (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)>
#<alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))>
#<alt (*.f64 phi1 (/.f64 R phi2))>
#<alt (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)>

Outputs
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (- lambda1 lambda2)>
#<alt (- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)>
#<alt phi1>
#<alt (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 phi1)))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 phi1)))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (* lambda1 (cos (* 1/2 phi1)))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 phi1)))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 phi1)))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))>
#<alt (- lambda1 lambda2)>
#<alt (- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi2)>
#<alt (* R phi1)>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (* -1 (* R phi2))>
#<alt (* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))>
#<alt (* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))>
#<alt (* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))>
#<alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))>
#<alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))>
#<alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))>
#<alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))>
#<alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))>
#<alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))>
#<alt (* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))>
#<alt (* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))>
#<alt (* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))>
#<alt (* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))>
#<alt (* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))>
#<alt (* -1 (* R phi2))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* R phi1)>
#<alt (* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))>
#<alt (* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))>
#<alt (* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 phi2)>
#<alt (* -1 phi2)>
#<alt (* -1 phi2)>
#<alt (* -1 phi2)>
#<alt (* -1 phi2)>
#<alt (* -1 phi2)>
#<alt (* -1 phi2)>
#<alt (* -1 phi2)>
#<alt (* -1 phi2)>
#<alt (* -1 phi2)>
#<alt (* -1 phi2)>
#<alt (* -1 phi2)>
#<alt (* R (- 1 (/ phi1 phi2)))>
#<alt (* R (- 1 (/ phi1 phi2)))>
#<alt (* R (- 1 (/ phi1 phi2)))>
#<alt (* R (- 1 (/ phi1 phi2)))>
#<alt (* R (- 1 (/ phi1 phi2)))>
#<alt (* R (- 1 (/ phi1 phi2)))>
#<alt (* R (- 1 (/ phi1 phi2)))>
#<alt (* R (- 1 (/ phi1 phi2)))>
#<alt (* R (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* R (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* R (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* R (+ 1 (* -1 (/ phi1 phi2))))>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi1) phi2)))>
#<alt (+ R (* -1 (/ (* R phi1) phi2)))>
#<alt (+ R (* -1 (/ (* R phi1) phi2)))>
#<alt (* -1 (/ (* R phi1) phi2))>
#<alt (* phi1 (- (/ R phi1) (/ R phi2)))>
#<alt (* phi1 (- (/ R phi1) (/ R phi2)))>
#<alt (* phi1 (- (/ R phi1) (/ R phi2)))>
#<alt (* -1 (/ (* R phi1) phi2))>
#<alt (* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))>
#<alt (* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))>
#<alt (* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))>
#<alt (* -1 (/ (* R phi1) phi2))>
#<alt (/ (- (* R phi2) (* R phi1)) phi2)>
#<alt (/ (- (* R phi2) (* R phi1)) phi2)>
#<alt (/ (- (* R phi2) (* R phi1)) phi2)>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi1) phi2)))>
#<alt (+ R (* -1 (/ (* R phi1) phi2)))>
#<alt (+ R (* -1 (/ (* R phi1) phi2)))>
#<alt R>
#<alt (+ R (* -1 (/ (* R phi1) phi2)))>
#<alt (+ R (* -1 (/ (* R phi1) phi2)))>
#<alt (+ R (* -1 (/ (* R phi1) phi2)))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* 1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda2 (sin (* 1/2 phi2)))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda2 (cos (* 1/2 phi2)))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda2 (sin (* 1/2 phi1)))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda2 (cos (* 1/2 phi1)))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (- (+ (* R (cos (* 1/2 phi2))) (* phi1 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (- (+ (* R (cos (* 1/2 phi2))) (* phi1 (- (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* phi1 (- (* -1/8 (* R (cos (* 1/2 phi2)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (- (+ (* R (cos (* 1/2 phi2))) (* phi1 (- (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* phi1 (- (+ (* -1/8 (* R (cos (* 1/2 phi2)))) (* phi1 (- (* 1/48 (* R (sin (* 1/2 phi2)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (- (+ (* R (cos (* 1/2 phi1))) (* phi2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (- (+ (* R (cos (* 1/2 phi1))) (* phi2 (- (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* phi2 (- (* -1/8 (* R (cos (* 1/2 phi1)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (- (+ (* R (cos (* 1/2 phi1))) (* phi2 (- (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* phi2 (- (+ (* -1/8 (* R (cos (* 1/2 phi1)))) (* phi2 (- (* 1/48 (* R (sin (* 1/2 phi1)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))>
#<alt (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (* lambda1 (- (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1) (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* lambda1 (- (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1) (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* lambda1 (- (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1) (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))>
#<alt (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))>
#<alt (/ (- (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)>
#<alt (/ (- (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)>
#<alt (/ (- (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))>
#<alt (+ (* -1 (* lambda2 (* phi1 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)))))) (* -1 (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))>
#<alt (+ (* -1 (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))) (* phi1 (+ (* -1 (* lambda2 (* phi1 (- (* -1/8 (* R (cos (* 1/2 phi2)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))) (* -1 (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))))))>
#<alt (+ (* -1 (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))) (* phi1 (+ (* -1 (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (* phi1 (+ (* -1 (* lambda2 (* phi1 (- (* 1/48 (* R (sin (* 1/2 phi2)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)))))) (* -1 (* lambda2 (- (* -1/8 (* R (cos (* 1/2 phi2)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))))))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))>
#<alt (+ (* -1 (* lambda2 (* phi2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)))))) (* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))>
#<alt (+ (* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))) (* phi2 (+ (* -1 (* lambda2 (* phi2 (- (* -1/8 (* R (cos (* 1/2 phi1)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))) (* -1 (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))))))>
#<alt (+ (* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))) (* phi2 (+ (* -1 (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (* phi2 (+ (* -1 (* lambda2 (* phi2 (- (* 1/48 (* R (sin (* 1/2 phi1)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)))))) (* -1 (* lambda2 (- (* -1/8 (* R (cos (* 1/2 phi1)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))))))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))))>
#<alt (* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))))>
#<alt (* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* R (cos (* 1/2 phi2)))>
#<alt (+ (* -1/2 (* R (* phi1 (sin (* 1/2 phi2))))) (* R (cos (* 1/2 phi2))))>
#<alt (+ (* R (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/8 (* R (* phi1 (cos (* 1/2 phi2))))))))>
#<alt (+ (* R (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/8 (* R (cos (* 1/2 phi2)))) (* 1/48 (* R (* phi1 (sin (* 1/2 phi2))))))))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (* R (cos (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (* R (cos (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (* R (cos (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (* R (cos (* 1/2 phi1)))>
#<alt (+ (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))>
#<alt (+ (* R (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/8 (* R (* phi2 (cos (* 1/2 phi1))))))))>
#<alt (+ (* R (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/8 (* R (cos (* 1/2 phi1)))) (* 1/48 (* R (* phi2 (sin (* 1/2 phi1))))))))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (* R (cos (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (* R (cos (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (* R (cos (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* R (cos (* 1/2 (+ phi1 phi2))))>
#<alt 1>
#<alt (+ 1 (* -1/8 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8)))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (cos (* 1/2 phi1))>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R phi1) phi2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)>
#<alt (+ (* -1/2 (/ (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))) lambda2)) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (+ (* phi1 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)) (* -1/8 (/ (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))) lambda2)))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (+ (* phi1 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)) (* phi1 (+ (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)) (* 1/48 (/ (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))) lambda2)))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)>
#<alt (+ (* -1/2 (/ (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))) lambda2)) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (+ (* phi2 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)) (* -1/8 (/ (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))) lambda2)))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (+ (* phi2 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)) (* phi2 (+ (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* 1/48 (/ (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))) lambda2)))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>
#<alt (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)>

Calls

225 calls:

Time	Variable		Point	Expression
5.0ms	phi2	@	inf	(* (neg phi2) (- R (* phi1 (/ R phi2))))
5.0ms	phi1	@	inf	(- (* (cos (* 1/2 (+ phi1 phi2))) R) (/ (* (* R lambda1) (cos (* 1/2 (+ phi1 phi2)))) lambda2))
3.0ms	R	@	0	(* (neg phi2) (- R (* phi1 (/ R phi2))))
1.0ms	phi2	@	-inf	(- (* (cos (* 1/2 (+ phi1 phi2))) R) (/ (* (* R lambda1) (cos (* 1/2 (+ phi1 phi2)))) lambda2))
1.0ms	phi1	@	0	(sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1))))))

simplify431.0ms (3.6%)

Memory

47.4MiB live, 350.6MiB allocated

Algorithm

1×	egg-herbie

Rules

9 440×	`lower-fma.f64`
9 440×	`lower-fma.f32`
8 224×	`lower-*.f64`
8 224×	`lower-*.f32`
4 790×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1232	29384
1	4121	28728
0	8489	26695

Stop Event

1×	iter limit
1×	node limit

Counts

900 → 892

Calls

Call 1

Inputs
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(- lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
phi1
(* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))
(* lambda1 (cos (* 1/2 phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))))
(* -1 (* lambda1 (cos (* 1/2 phi1))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))
(* lambda2 (cos (* 1/2 phi1)))
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(* lambda1 (cos (* 1/2 phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (cos (* 1/2 phi1)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (cos (* 1/2 phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(- lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi2)
(* R phi1)
(+ (* -1 (* R phi2)) (* R phi1))
(+ (* -1 (* R phi2)) (* R phi1))
(+ (* -1 (* R phi2)) (* R phi1))
(* -1 (* R phi2))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(* -1 (* R phi2))
(+ (* -1 (* R phi2)) (* R phi1))
(+ (* -1 (* R phi2)) (* R phi1))
(+ (* -1 (* R phi2)) (* R phi1))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* R phi1)
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* -1 phi2)
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (- 1 (/ phi1 phi2)))
(* R (+ 1 (* -1 (/ phi1 phi2))))
(* R (+ 1 (* -1 (/ phi1 phi2))))
(* R (+ 1 (* -1 (/ phi1 phi2))))
(* R (+ 1 (* -1 (/ phi1 phi2))))
R
(+ R (* -1 (/ (* R phi1) phi2)))
(+ R (* -1 (/ (* R phi1) phi2)))
(+ R (* -1 (/ (* R phi1) phi2)))
(* -1 (/ (* R phi1) phi2))
(* phi1 (- (/ R phi1) (/ R phi2)))
(* phi1 (- (/ R phi1) (/ R phi2)))
(* phi1 (- (/ R phi1) (/ R phi2)))
(* -1 (/ (* R phi1) phi2))
(* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))
(* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))
(* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))
(* -1 (/ (* R phi1) phi2))
(/ (- (* R phi2) (* R phi1)) phi2)
(/ (- (* R phi2) (* R phi1)) phi2)
(/ (- (* R phi2) (* R phi1)) phi2)
R
(+ R (* -1 (/ (* R phi1) phi2)))
(+ R (* -1 (/ (* R phi1) phi2)))
(+ R (* -1 (/ (* R phi1) phi2)))
R
(+ R (* -1 (/ (* R phi1) phi2)))
(+ R (* -1 (/ (* R phi1) phi2)))
(+ R (* -1 (/ (* R phi1) phi2)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* 1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda2 (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda2 (cos (* 1/2 phi2)))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda2 (sin (* 1/2 phi1)))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda2 (cos (* 1/2 phi1)))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(- (+ (* R (cos (* 1/2 phi2))) (* phi1 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(- (+ (* R (cos (* 1/2 phi2))) (* phi1 (- (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* phi1 (- (* -1/8 (* R (cos (* 1/2 phi2)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(- (+ (* R (cos (* 1/2 phi2))) (* phi1 (- (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* phi1 (- (+ (* -1/8 (* R (cos (* 1/2 phi2)))) (* phi1 (- (* 1/48 (* R (sin (* 1/2 phi2)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))
(- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))
(- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))
(- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(- (+ (* R (cos (* 1/2 phi1))) (* phi2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(- (+ (* R (cos (* 1/2 phi1))) (* phi2 (- (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* phi2 (- (* -1/8 (* R (cos (* 1/2 phi1)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(- (+ (* R (cos (* 1/2 phi1))) (* phi2 (- (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* phi2 (- (+ (* -1/8 (* R (cos (* 1/2 phi1)))) (* phi2 (- (* 1/48 (* R (sin (* 1/2 phi1)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))
(- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))
(- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))
(- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(* lambda1 (- (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1) (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* lambda1 (- (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1) (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* lambda1 (- (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1) (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(/ (- (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)
(/ (- (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)
(/ (- (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)
(* R (cos (* 1/2 (+ phi1 phi2))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))
(+ (* -1 (* lambda2 (* phi1 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)))))) (* -1 (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(+ (* -1 (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))) (* phi1 (+ (* -1 (* lambda2 (* phi1 (- (* -1/8 (* R (cos (* 1/2 phi2)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))) (* -1 (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))))))
(+ (* -1 (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))) (* phi1 (+ (* -1 (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (* phi1 (+ (* -1 (* lambda2 (* phi1 (- (* 1/48 (* R (sin (* 1/2 phi2)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)))))) (* -1 (* lambda2 (- (* -1/8 (* R (cos (* 1/2 phi2)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))))))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(+ (* -1 (* lambda2 (* phi2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)))))) (* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(+ (* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))) (* phi2 (+ (* -1 (* lambda2 (* phi2 (- (* -1/8 (* R (cos (* 1/2 phi1)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))) (* -1 (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))))))
(+ (* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))) (* phi2 (+ (* -1 (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (* phi2 (+ (* -1 (* lambda2 (* phi2 (- (* 1/48 (* R (sin (* 1/2 phi1)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)))))) (* -1 (* lambda2 (- (* -1/8 (* R (cos (* 1/2 phi1)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))))))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))
(* lambda2 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))
(* lambda2 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(* R (cos (* 1/2 phi2)))
(+ (* -1/2 (* R (* phi1 (sin (* 1/2 phi2))))) (* R (cos (* 1/2 phi2))))
(+ (* R (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/8 (* R (* phi1 (cos (* 1/2 phi2))))))))
(+ (* R (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/8 (* R (cos (* 1/2 phi2)))) (* 1/48 (* R (* phi1 (sin (* 1/2 phi2))))))))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (- phi2 (* -1 phi1)))))
(* R (cos (* 1/2 (- phi2 (* -1 phi1)))))
(* R (cos (* 1/2 (- phi2 (* -1 phi1)))))
(* R (cos (* 1/2 (- phi2 (* -1 phi1)))))
(* R (cos (* 1/2 phi1)))
(+ (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(+ (* R (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/8 (* R (* phi2 (cos (* 1/2 phi1))))))))
(+ (* R (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/8 (* R (cos (* 1/2 phi1)))) (* 1/48 (* R (* phi2 (sin (* 1/2 phi1))))))))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (- phi1 (* -1 phi2)))))
(* R (cos (* 1/2 (- phi1 (* -1 phi2)))))
(* R (cos (* 1/2 (- phi1 (* -1 phi2)))))
(* R (cos (* 1/2 (- phi1 (* -1 phi2)))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
1
(+ 1 (* -1/8 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8)))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(cos (* 1/2 phi1))
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R phi1) phi2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)
(+ (* -1/2 (/ (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))) lambda2)) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(+ (* phi1 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)) (* -1/8 (/ (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))) lambda2)))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(+ (* phi1 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)) (* phi1 (+ (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)) (* 1/48 (/ (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))) lambda2)))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(+ (* -1/2 (/ (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))) lambda2)) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(+ (* phi2 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)) (* -1/8 (/ (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))) lambda2)))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(+ (* phi2 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)) (* phi2 (+ (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* 1/48 (/ (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))) lambda2)))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)

Outputs
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (.f64 R (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 R lambda1) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 (.f64 lambda1 lambda1)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 lambda1 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (fma.f64 (neg.f64 R) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 (.f64 lambda2 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))) (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R) (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 phi1 (.f64 phi1 phi1))) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 phi1 phi1)))) (/.f64 (.f64 R phi2) phi1))))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1) (.f64 R phi2)) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (-.f64 (.f64 R phi2) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 R (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 (.f64 R phi2) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 R phi2) (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 phi1 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi2 (.f64 phi2 phi2)))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2) (.f64 R phi1)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 R phi1) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 R (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 (.f64 R phi1) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) phi2)) phi2))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(-.f64 (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (neg.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (neg.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 (.f64 lambda1 lambda1)))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1)))) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))) lambda1))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 (.f64 lambda2 lambda2)))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(neg.f64 (.f64 lambda2 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (neg.f64 lambda2))) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 phi1 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi1 phi1)) (/.f64 phi2 (neg.f64 phi1))) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi1 (.f64 phi1 phi1))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))) (/.f64 phi2 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi1) phi2) (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (/.f64 (neg.f64 phi1) phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 (neg.f64 phi1) phi2)) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi2) phi1) (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) phi2)) (neg.f64 phi2)) phi2))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(-.f64 (fma.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 phi1 phi1) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (-.f64 lambda1 lambda2)))) lambda1) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
(-.f64 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 phi1 phi1) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/1440 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (-.f64 lambda1 lambda2)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)) #s(literal 1/2 binary64)) (-.f64 lambda1 lambda2))) lambda1) lambda2)
phi1
(* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) phi1)
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))) phi1)
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi1 #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(.f64 (neg.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) #s(literal 1 binary64)))
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(neg.f64 (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))))) phi1))
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))
(neg.f64 (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi1 #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) phi1))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda1 (cos (* 1/2 phi1)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 phi1)) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 phi1 phi1) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (.f64 phi1 phi1) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (/.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))))
(.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (fma.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (fma.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 phi1 phi1) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (.f64 phi1 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (neg.f64 lambda1))) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (hypot.f64 phi1 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (hypot.f64 phi1 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))
(fma.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)) #s(literal 3 binary64))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (hypot.f64 phi1 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (cos (* 1/2 phi1)))
(.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))
(.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 phi1)) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 phi1 phi1) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (.f64 phi1 phi1) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)) lambda2))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(neg.f64 (.f64 lambda2 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 phi1) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) lambda2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (fma.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 phi1 phi1) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (.f64 phi1 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (neg.f64 lambda2))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* lambda1 (cos (* 1/2 phi1)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (cos (* 1/2 phi1)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda1))
(* lambda1 (cos (* 1/2 phi1)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2)
(-.f64 (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/8 binary64)) (-.f64 lambda1 lambda2) lambda1) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2)
(-.f64 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 phi1 phi1)) #s(literal 1/384 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64))) lambda1) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(-.f64 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 phi1 phi1)) #s(literal -1/46080 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/384 binary64))) (.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64))) lambda1) lambda2)
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (.f64 R (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 R lambda1) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 (.f64 lambda1 lambda1)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 lambda1 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (fma.f64 (neg.f64 R) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 (.f64 lambda2 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))) (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R) (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 phi1 (.f64 phi1 phi1))) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 phi1 phi1)))) (/.f64 (.f64 R phi2) phi1))))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1) (.f64 R phi2)) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (-.f64 (.f64 R phi2) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 R (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 (.f64 R phi2) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 R phi2) (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 phi1 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi2 (.f64 phi2 phi2)))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2) (.f64 R phi1)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 R phi1) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 R (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 (.f64 R phi1) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) phi2)) phi2))))
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi2)
(*.f64 R phi2)
(* R phi1)
(*.f64 R phi1)
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 R phi1 (*.f64 R (neg.f64 phi2)))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 R phi1 (*.f64 R (neg.f64 phi2)))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 R phi1 (*.f64 R (neg.f64 phi2)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(*.f64 phi2 (fma.f64 R (/.f64 phi1 phi2) (neg.f64 R)))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(*.f64 phi2 (fma.f64 R (/.f64 phi1 phi2) (neg.f64 R)))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(*.f64 phi2 (fma.f64 R (/.f64 phi1 phi2) (neg.f64 R)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R) (neg.f64 phi2))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)))
(* -1 (* R (* phi2 (- 1 (/ phi1 phi2)))))
(neg.f64 (*.f64 R (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(neg.f64 (*.f64 R (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(neg.f64 (*.f64 R (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(neg.f64 (*.f64 R (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)))
(* -1 (* R (* phi2 (+ 1 (* -1 (/ phi1 phi2))))))
(neg.f64 (*.f64 R (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 R phi1 (*.f64 R (neg.f64 phi2)))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 R phi1 (*.f64 R (neg.f64 phi2)))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 R phi1 (*.f64 R (neg.f64 phi2)))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* R phi1)
(*.f64 R phi1)
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 phi1) (neg.f64 R))))
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 phi1) (neg.f64 R))))
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 phi1) (neg.f64 R))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (.f64 R (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 R lambda1) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 (.f64 lambda1 lambda1)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 lambda1 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (fma.f64 (neg.f64 R) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 (.f64 lambda2 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))) (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R) (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 phi1 (.f64 phi1 phi1))) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 phi1 phi1)))) (/.f64 (.f64 R phi2) phi1))))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1) (.f64 R phi2)) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (-.f64 (.f64 R phi2) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 R (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 (.f64 R phi2) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 R phi2) (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 phi1 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi2 (.f64 phi2 phi2)))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2) (.f64 R phi1)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 R phi1) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 R (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 (.f64 R phi1) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) phi2)) phi2))))
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 phi2)
(neg.f64 phi2)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* R (- 1 (/ phi1 phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* R (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* R (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* R (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* R (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
R
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* -1 (/ (* R phi1) phi2))
(*.f64 R (/.f64 (neg.f64 phi1) phi2))
(* phi1 (- (/ R phi1) (/ R phi2)))
(*.f64 phi1 (-.f64 (/.f64 R phi1) (/.f64 R phi2)))
(* phi1 (- (/ R phi1) (/ R phi2)))
(*.f64 phi1 (-.f64 (/.f64 R phi1) (/.f64 R phi2)))
(* phi1 (- (/ R phi1) (/ R phi2)))
(*.f64 phi1 (-.f64 (/.f64 R phi1) (/.f64 R phi2)))
(* -1 (/ (* R phi1) phi2))
(*.f64 R (/.f64 (neg.f64 phi1) phi2))
(* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))
(*.f64 (neg.f64 phi1) (+.f64 (/.f64 R (neg.f64 phi1)) (/.f64 R phi2)))
(* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))
(*.f64 (neg.f64 phi1) (+.f64 (/.f64 R (neg.f64 phi1)) (/.f64 R phi2)))
(* -1 (* phi1 (- (* -1 (/ R phi1)) (* -1 (/ R phi2)))))
(*.f64 (neg.f64 phi1) (+.f64 (/.f64 R (neg.f64 phi1)) (/.f64 R phi2)))
(* -1 (/ (* R phi1) phi2))
(*.f64 R (/.f64 (neg.f64 phi1) phi2))
(/ (- (* R phi2) (* R phi1)) phi2)
(/.f64 (*.f64 R (-.f64 phi2 phi1)) phi2)
(/ (- (* R phi2) (* R phi1)) phi2)
(/.f64 (*.f64 R (-.f64 phi2 phi1)) phi2)
(/ (- (* R phi2) (* R phi1)) phi2)
(/.f64 (*.f64 R (-.f64 phi2 phi1)) phi2)
R
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
R
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(+ R (* -1 (/ (* R phi1) phi2)))
(fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (.f64 R (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 R lambda1) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 (.f64 lambda1 lambda1)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 lambda1 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (fma.f64 (neg.f64 R) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 (.f64 lambda2 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))) (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R) (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 phi1 (.f64 phi1 phi1))) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 phi1 phi1)))) (/.f64 (.f64 R phi2) phi1))))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1) (.f64 R phi2)) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (-.f64 (.f64 R phi2) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 R (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 (.f64 R phi2) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 R phi2) (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 phi1 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi2 (.f64 phi2 phi2)))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2) (.f64 R phi1)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 R phi1) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 R (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 (.f64 R phi1) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) phi2)) phi2))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(-.f64 (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (neg.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (neg.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 (.f64 lambda1 lambda1)))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1)))) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))) lambda1))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 (.f64 lambda2 lambda2)))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(neg.f64 (.f64 lambda2 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (neg.f64 lambda2))) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 phi1 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi1 phi1)) (/.f64 phi2 (neg.f64 phi1))) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi1 (.f64 phi1 phi1))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))) (/.f64 phi2 (neg.f64 phi1))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi1) phi2) (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (/.f64 (neg.f64 phi1) phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 (neg.f64 phi1) phi2)) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (neg.f64 phi1) phi2) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) phi2) phi1) (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) phi2)) (neg.f64 phi2)) phi2))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* 1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda2 (sin (* 1/2 phi2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 lambda2 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda2 (cos (* 1/2 phi2)))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 (.f64 (.f64 lambda2 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal -1/48 binary64) (.f64 (.f64 #s(literal 1/8 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda2 (sin (* 1/2 phi1)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 lambda2 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda2 (cos (* 1/2 phi1)))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/48 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal 1/8 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) lambda2))
(- (+ (* R (cos (* 1/2 phi2))) (* phi1 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(-.f64 (fma.f64 phi1 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) lambda2))
(- (+ (* R (cos (* 1/2 phi2))) (* phi1 (- (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* phi1 (- (* -1/8 (* R (cos (* 1/2 phi2)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(-.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (fma.f64 phi1 (.f64 #s(literal -1/8 binary64) (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2)))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) lambda2))
(- (+ (* R (cos (* 1/2 phi2))) (* phi1 (- (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* phi1 (- (+ (* -1/8 (* R (cos (* 1/2 phi2)))) (* phi1 (- (* 1/48 (* R (sin (* 1/2 phi2)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(-.f64 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (fma.f64 phi1 (.f64 #s(literal 1/48 binary64) (-.f64 (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2)))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) lambda2))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2))
(- (+ (* R (cos (* 1/2 phi1))) (* phi2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(-.f64 (fma.f64 phi2 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2))
(- (+ (* R (cos (* 1/2 phi1))) (* phi2 (- (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* phi2 (- (* -1/8 (* R (cos (* 1/2 phi1)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(-.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 phi2 (.f64 #s(literal -1/8 binary64) (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2)))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2))
(- (+ (* R (cos (* 1/2 phi1))) (* phi2 (- (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* phi2 (- (+ (* -1/8 (* R (cos (* 1/2 phi1)))) (* phi2 (- (* 1/48 (* R (sin (* 1/2 phi1)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(-.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 phi2 (.f64 #s(literal 1/48 binary64) (-.f64 (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2)))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* R (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (neg.f64 R) (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (neg.f64 R) (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (neg.f64 R) (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* R (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (neg.f64 R) (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2))
(* lambda1 (- (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1) (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 lambda1 (fma.f64 R (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 R)) lambda2)))
(* lambda1 (- (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1) (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 lambda1 (fma.f64 R (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 R)) lambda2)))
(* lambda1 (- (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1) (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))
(.f64 lambda1 (fma.f64 R (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 R)) lambda2)))
(* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2))
(* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (fma.f64 R (neg.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (/.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (fma.f64 R (neg.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (/.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* -1 (/ (* R (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (fma.f64 R (neg.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (/.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda1))
(* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2))
(/ (- (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)
(/.f64 (.f64 R (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))) lambda2)
(/ (- (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)
(/.f64 (.f64 R (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))) lambda2)
(/ (- (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)
(/.f64 (.f64 R (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1)))) lambda2)
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))
(.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (* phi1 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)))))) (* -1 (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(neg.f64 (fma.f64 (.f64 lambda2 phi1) (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2))) (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) lambda2)))))
(+ (* -1 (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))) (* phi1 (+ (* -1 (* lambda2 (* phi1 (- (* -1/8 (* R (cos (* 1/2 phi2)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))) (* -1 (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))))))
(fma.f64 phi1 (neg.f64 (fma.f64 lambda2 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2))) (.f64 (.f64 lambda2 phi1) (.f64 #s(literal -1/8 binary64) (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2)))))) (.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (- (* R (cos (* 1/2 phi2))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)))) (* phi1 (+ (* -1 (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2))))) (* phi1 (+ (* -1 (* lambda2 (* phi1 (- (* 1/48 (* R (sin (* 1/2 phi2)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)))))) (* -1 (* lambda2 (- (* -1/8 (* R (cos (* 1/2 phi2)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))))))))))
(fma.f64 phi1 (fma.f64 phi1 (neg.f64 (fma.f64 lambda2 (.f64 #s(literal -1/8 binary64) (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2))) (.f64 (.f64 lambda2 phi1) (.f64 #s(literal 1/48 binary64) (-.f64 (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2)))))) (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda2))) (neg.f64 lambda2))) (.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) lambda2)) (neg.f64 lambda2)))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi2 (* -1 phi1))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (* phi2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)))))) (* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(neg.f64 (fma.f64 (.f64 lambda2 phi2) (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2))) (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)))))
(+ (* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))) (* phi2 (+ (* -1 (* lambda2 (* phi2 (- (* -1/8 (* R (cos (* 1/2 phi1)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))) (* -1 (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))))))
(fma.f64 phi2 (neg.f64 (fma.f64 lambda2 (.f64 phi2 (.f64 #s(literal -1/8 binary64) (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2)))) (.f64 lambda2 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2)))))) (.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (- (* R (cos (* 1/2 phi1))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)))) (* phi2 (+ (* -1 (* lambda2 (- (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2))))) (* phi2 (+ (* -1 (* lambda2 (* phi2 (- (* 1/48 (* R (sin (* 1/2 phi1)))) (* 1/48 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)))))) (* -1 (* lambda2 (- (* -1/8 (* R (cos (* 1/2 phi1)))) (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))))))))))
(fma.f64 phi2 (fma.f64 phi2 (neg.f64 (fma.f64 (.f64 lambda2 phi2) (.f64 #s(literal 1/48 binary64) (-.f64 (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2))) (.f64 lambda2 (.f64 #s(literal -1/8 binary64) (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2)))))) (.f64 lambda2 (neg.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 R (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2)))))) (.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)) (neg.f64 lambda2)))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (+ phi1 phi2)))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (- (* R (cos (* 1/2 (- phi1 (* -1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 R (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 R (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 R (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 R (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 R (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 R (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 R (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* -1 (* R (* lambda2 (- (cos (* 1/2 (+ phi1 phi2))) (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 R (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 R (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 R (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 R (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda2 (- (* -1 (cos (* 1/2 (+ phi1 phi2)))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 R (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))
(.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 R) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))
(.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 R) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1))))
(.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 R) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(-.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))
(.f64 lambda2 (.f64 R (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* lambda2 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))
(.f64 lambda2 (.f64 R (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* lambda2 (+ (* -1 (* R (cos (* 1/2 (+ phi1 phi2))))) (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))
(.f64 lambda2 (.f64 R (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 lambda1 lambda2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) (.f64 R (.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 R lambda1) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda2) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 (.f64 lambda1 lambda1)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda1 lambda1))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (.f64 (.f64 R lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 lambda1 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (fma.f64 (neg.f64 R) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 (.f64 lambda2 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 lambda2 lambda2))) (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (.f64 R (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (-.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R) (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi1 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 phi1 (.f64 phi1 phi1))) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (.f64 phi1 phi1)))) (/.f64 (.f64 R phi2) phi1))))
(* -1 (* R phi1))
(*.f64 R (neg.f64 phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1) (.f64 R phi2)) phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (-.f64 (.f64 R phi2) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 R (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 (.f64 R phi2) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi1))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 R phi2) (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (*.f64 phi2 phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (fma.f64 R (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 phi1 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi2 (.f64 phi2 phi2)))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))))))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(*.f64 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2) (.f64 R phi1)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 R phi1) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 R (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 (.f64 (.f64 R phi1) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) phi2))) phi2)) phi2))))
(* R (cos (* 1/2 phi2)))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* R (* phi1 (sin (* 1/2 phi2))))) (* R (cos (* 1/2 phi2))))
(fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 R phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* R (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* -1/8 (* R (* phi1 (cos (* 1/2 phi2))))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 R phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 #s(literal -1/2 binary64) R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (* R (cos (* 1/2 phi2))) (* phi1 (+ (* -1/2 (* R (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/8 (* R (cos (* 1/2 phi2)))) (* 1/48 (* R (* phi1 (sin (* 1/2 phi2))))))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 1/48 binary64) (.f64 (.f64 R phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 #s(literal -1/8 binary64) R) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (.f64 #s(literal -1/2 binary64) R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (- phi2 (* -1 phi1)))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (- phi2 (* -1 phi1)))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (- phi2 (* -1 phi1)))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (- phi2 (* -1 phi1)))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 phi1)))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* R (* phi2 (sin (* 1/2 phi1))))) (* R (cos (* 1/2 phi1))))
(fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 R phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* R (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* -1/8 (* R (* phi2 (cos (* 1/2 phi1))))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 R phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal -1/2 binary64) R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (* R (cos (* 1/2 phi1))) (* phi2 (+ (* -1/2 (* R (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/8 (* R (cos (* 1/2 phi1)))) (* 1/48 (* R (* phi2 (sin (* 1/2 phi1))))))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal 1/48 binary64) (.f64 (.f64 R phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal -1/8 binary64) R) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 #s(literal -1/2 binary64) R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (- phi1 (* -1 phi2)))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (- phi1 (* -1 phi2)))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (- phi1 (* -1 phi2)))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (- phi1 (* -1 phi2)))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (cos (* 1/2 (+ phi1 phi2))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi1 2)))
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/8 binary64) #s(literal 1 binary64))
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))
(fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) #s(literal 1/384 binary64) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8)))
(fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R phi1) phi2)
(/.f64 (*.f64 R phi1) phi2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) lambda2)
(+ (* -1/2 (/ (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))) lambda2)) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (.f64 lambda1 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) lambda2) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) lambda2))
(+ (* phi1 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)) (* -1/8 (/ (* R (* lambda1 (* phi1 (cos (* 1/2 phi2))))) lambda2)))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 R (.f64 (.f64 lambda1 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) lambda2) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) lambda2))
(+ (* phi1 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi2)))) lambda2)) (* phi1 (+ (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2)) (* 1/48 (/ (* R (* lambda1 (* phi1 (sin (* 1/2 phi2))))) lambda2)))))) (/ (* R (* lambda1 (cos (* 1/2 phi2)))) lambda2))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 1/48 binary64) (/.f64 (.f64 R (.f64 (.f64 lambda1 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) lambda2) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) lambda2))
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1)))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(+ (* -1/2 (/ (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))) lambda2)) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (.f64 lambda1 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) lambda2) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2))
(+ (* phi2 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)) (* -1/8 (/ (* R (* lambda1 (* phi2 (cos (* 1/2 phi1))))) lambda2)))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 R (.f64 (.f64 lambda1 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) lambda2) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2))
(+ (* phi2 (+ (* -1/2 (/ (* R (* lambda1 (sin (* 1/2 phi1)))) lambda2)) (* phi2 (+ (* -1/8 (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2)) (* 1/48 (/ (* R (* lambda1 (* phi2 (sin (* 1/2 phi1))))) lambda2)))))) (/ (* R (* lambda1 (cos (* 1/2 phi1)))) lambda2))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal 1/48 binary64) (/.f64 (.f64 R (.f64 (.f64 lambda1 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) lambda2) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) lambda2)) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 R lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2))
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2)))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)

rewrite282.0ms (2.3%)

Memory

-13.5MiB live, 264.8MiB allocated

Rules

4 932×	`lower-*.f32`
4 906×	`lower-*.f64`
4 236×	`lower-/.f32`
4 232×	`lower-/.f64`
4 012×	`lower-fma.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	47	431
0	74	354
1	244	354
2	1735	354
0	8647	319

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Counts

21 → 285

Calls

Call 1

Inputs
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(*.f64 phi2 R)
(.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(neg.f64 phi2)
(-.f64 R (*.f64 phi1 (/.f64 R phi2)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2))
(.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 phi1 (/.f64 R phi2))
(/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)

Outputs
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 phi1 phi1 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 phi1 phi1 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 phi1 phi1 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(exp.f64 (.f64 (log.f64 (fma.f64 phi1 phi1 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 1/2 binary64)))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(hypot.f64 phi1 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))
(hypot.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) phi1)
(hypot.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (exp.f64 (log.f64 phi1)))
(hypot.f64 (exp.f64 (log.f64 phi1)) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(hypot.f64 (exp.f64 (log.f64 phi1)) (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))
(hypot.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) phi1)
(hypot.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 phi1)))
(sqrt.f64 (fma.f64 phi1 phi1 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (fma.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi1 phi1)) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)))) (fma.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (-.f64 (.f64 phi1 phi1) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (fma.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi1 phi1)) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))))))
(/.f64 (sqrt.f64 (fma.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (-.f64 (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (.f64 (.f64 phi1 phi1) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))))
(/.f64 (sqrt.f64 (-.f64 (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (.f64 phi1 phi1) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))))
(/.f64 (sqrt.f64 (neg.f64 (fma.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (sqrt.f64 (neg.f64 (fma.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi1 phi1)) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64))))) (sqrt.f64 (neg.f64 (-.f64 (.f64 phi1 phi1) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (sqrt.f64 (fma.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64))))) (neg.f64 (sqrt.f64 (fma.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi1 phi1)) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)))))))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64))))) (neg.f64 (sqrt.f64 (-.f64 (.f64 phi1 phi1) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))
(pow.f64 (fma.f64 phi1 phi1 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (fma.f64 phi1 phi1 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (.f64 (fma.f64 phi1 phi1 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (fma.f64 phi1 phi1 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log.f64 (fma.f64 phi1 phi1 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) #s(literal 1/2 binary64))
(.f64 (sqrt.f64 (fma.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi1 phi1)) (.f64 phi1 (.f64 phi1 (*.f64 phi1 phi1))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (fma.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (.f64 phi1 phi1)) (.f64 phi1 (.f64 phi1 (*.f64 phi1 phi1)))))))
(.f64 (sqrt.f64 (-.f64 (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (.f64 phi1 phi1) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (-.f64 (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (.f64 phi1 phi1) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))))
(.f64 (pow.f64 (fma.f64 phi1 phi1 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 phi1 phi1 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) #s(literal 1/4 binary64)))
(+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) lambda1) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 lambda2)))
(+.f64 (.f64 lambda1 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(fma.f64 lambda1 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (neg.f64 lambda2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) lambda1 (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 lambda2)))
(/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 lambda1 lambda2))
(/.f64 (neg.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) lambda1) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) lambda1) (-.f64 (.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 lambda2)) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 lambda2))) (.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) lambda1) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (.f64 lambda1 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 lambda1 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 lambda1 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (neg.f64 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (.f64 lambda1 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))))
(pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))
(.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (-.f64 lambda1 lambda2))
(.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))
(*.f64 R phi2)
(*.f64 phi2 R)
(+.f64 (.f64 (neg.f64 phi2) R) (.f64 (neg.f64 phi2) (neg.f64 (*.f64 phi1 (/.f64 R phi2)))))
(+.f64 (.f64 R (neg.f64 phi2)) (.f64 (neg.f64 (*.f64 phi1 (/.f64 R phi2))) (neg.f64 phi2)))
(-.f64 #s(literal 0 binary64) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(fma.f64 R (neg.f64 phi2) (.f64 (neg.f64 (.f64 phi1 (/.f64 R phi2))) (neg.f64 phi2)))
(fma.f64 (neg.f64 phi2) R (.f64 (neg.f64 phi2) (neg.f64 (.f64 phi1 (/.f64 R phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(/.f64 (.f64 (neg.f64 phi2) (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2)))))) (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (*.f64 R R)))
(/.f64 (.f64 (neg.f64 phi2) (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2)))) (fma.f64 phi1 (/.f64 R phi2) R))
(/.f64 (.f64 (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2))))) (neg.f64 phi2)) (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (*.f64 R R)))
(/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R))
(/.f64 (neg.f64 (.f64 (neg.f64 phi2) (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2))))))) (neg.f64 (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (*.f64 R R))))
(/.f64 (neg.f64 (.f64 (neg.f64 phi2) (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))))) (neg.f64 (fma.f64 phi1 (/.f64 R phi2) R)))
(/.f64 (neg.f64 (.f64 (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2))))) (neg.f64 phi2))) (neg.f64 (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (*.f64 R R))))
(/.f64 (neg.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2))) (neg.f64 (fma.f64 phi1 (/.f64 R phi2) R)))
(/.f64 (+.f64 (pow.f64 (.f64 (neg.f64 phi2) R) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 phi2) (neg.f64 (.f64 phi1 (/.f64 R phi2)))) #s(literal 3 binary64))) (fma.f64 (.f64 (neg.f64 phi2) R) (.f64 (neg.f64 phi2) R) (-.f64 (.f64 (.f64 (neg.f64 phi2) (neg.f64 (.f64 phi1 (/.f64 R phi2)))) (.f64 (neg.f64 phi2) (neg.f64 (.f64 phi1 (/.f64 R phi2))))) (.f64 (.f64 (neg.f64 phi2) R) (.f64 (neg.f64 phi2) (neg.f64 (.f64 phi1 (/.f64 R phi2))))))))
(/.f64 (+.f64 (pow.f64 (.f64 R (neg.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 phi1 (/.f64 R phi2))) (neg.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 R (neg.f64 phi2)) (.f64 R (neg.f64 phi2)) (-.f64 (.f64 (.f64 (neg.f64 (.f64 phi1 (/.f64 R phi2))) (neg.f64 phi2)) (.f64 (neg.f64 (.f64 phi1 (/.f64 R phi2))) (neg.f64 phi2))) (.f64 (.f64 R (neg.f64 phi2)) (.f64 (neg.f64 (.f64 phi1 (/.f64 R phi2))) (neg.f64 phi2))))))
(.f64 phi2 (neg.f64 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2))))
(.f64 (-.f64 R (.f64 phi1 (/.f64 R phi2))) (neg.f64 phi2))
(.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))
(.f64 (.f64 (-.f64 R (*.f64 phi1 (/.f64 R phi2))) #s(literal -1 binary64)) phi2)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(+.f64 #s(literal 0 binary64) (neg.f64 phi2))
(-.f64 #s(literal 0 binary64) phi2)
(-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (.f64 #s(literal 0 binary64) phi2)))) (/.f64 (.f64 phi2 (.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (.f64 #s(literal 0 binary64) phi2)))))
(-.f64 (/.f64 #s(literal 0 binary64) (+.f64 #s(literal 0 binary64) phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 #s(literal 0 binary64) phi2)))
(neg.f64 phi2)
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 phi2 (.f64 phi2 phi2))) (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2)) (+.f64 #s(literal 0 binary64) phi2))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (.f64 phi2 (.f64 phi2 phi2)))) (neg.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi2 phi2 (*.f64 #s(literal 0 binary64) phi2)))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi2 phi2))) (neg.f64 (+.f64 #s(literal 0 binary64) phi2)))
(/.f64 (+.f64 #s(literal 0 binary64) (neg.f64 (.f64 phi2 (.f64 phi2 phi2)))) (+.f64 #s(literal 0 binary64) (-.f64 (.f64 phi2 phi2) (.f64 #s(literal 0 binary64) (neg.f64 phi2)))))
(*.f64 phi2 #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) phi2)
(+.f64 R (neg.f64 (*.f64 phi1 (/.f64 R phi2))))
(+.f64 (neg.f64 (*.f64 phi1 (/.f64 R phi2))) R)
(-.f64 R (*.f64 phi1 (/.f64 R phi2)))
(-.f64 (/.f64 (.f64 R (.f64 R R)) (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (.f64 R R))) (/.f64 (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (.f64 phi2 (.f64 phi2 phi2))) (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (*.f64 R R))))
(-.f64 (/.f64 (.f64 R R) (fma.f64 phi1 (/.f64 R phi2) R)) (/.f64 (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
(-.f64 (/.f64 (.f64 R R) (-.f64 R (neg.f64 (.f64 phi1 (/.f64 R phi2))))) (/.f64 (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2)) (-.f64 R (neg.f64 (*.f64 phi1 (/.f64 R phi2))))))
(fma.f64 phi1 (neg.f64 (/.f64 R phi2)) R)
(fma.f64 (/.f64 R phi2) (neg.f64 phi1) R)
(fma.f64 (/.f64 R phi2) (/.f64 phi1 #s(literal -1 binary64)) R)
(fma.f64 #s(literal -1 binary64) (*.f64 phi1 (/.f64 R phi2)) R)
(fma.f64 (neg.f64 phi1) (/.f64 R phi2) R)
(fma.f64 (neg.f64 (/.f64 R phi2)) phi1 R)
(fma.f64 (*.f64 (neg.f64 phi1) R) (/.f64 #s(literal 1 binary64) phi2) R)
(fma.f64 (/.f64 R #s(literal -1 binary64)) (/.f64 phi1 phi2) R)
(fma.f64 (/.f64 #s(literal -1 binary64) phi2) (/.f64 phi1 (/.f64 #s(literal 1 binary64) R)) R)
(fma.f64 (/.f64 phi1 #s(literal -1 binary64)) (/.f64 R phi2) R)
(fma.f64 (/.f64 phi1 phi2) (/.f64 R #s(literal -1 binary64)) R)
(fma.f64 (/.f64 (neg.f64 phi1) phi2) (/.f64 (neg.f64 R) #s(literal -1 binary64)) R)
(fma.f64 (/.f64 (neg.f64 phi1) phi2) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) R)) R)
(fma.f64 (/.f64 (neg.f64 phi1) #s(literal -1 binary64)) (/.f64 (neg.f64 R) phi2) R)
(/.f64 (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2))))) (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (.f64 R R)))
(/.f64 (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2))))) (fma.f64 R R (-.f64 (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2)) (.f64 R (neg.f64 (.f64 phi1 (/.f64 R phi2)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (.f64 R R)) (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi1 (/.f64 R phi2) R) (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (.f64 R R)) (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2))))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi1 (/.f64 R phi2) R) (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2))))))
(/.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2))) (fma.f64 phi1 (/.f64 R phi2) R))
(/.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (-.f64 R (neg.f64 (.f64 phi1 (/.f64 R phi2)))))
(/.f64 (neg.f64 (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2)))))) (neg.f64 (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (.f64 R R))))
(/.f64 (neg.f64 (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2)))))) (neg.f64 (fma.f64 R R (-.f64 (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2)) (.f64 R (neg.f64 (.f64 phi1 (/.f64 R phi2))))))))
(/.f64 (neg.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2)))) (neg.f64 (fma.f64 phi1 (/.f64 R phi2) R)))
(/.f64 (neg.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2)))) (neg.f64 (-.f64 R (neg.f64 (.f64 phi1 (/.f64 R phi2))))))
(/.f64 (-.f64 (.f64 (.f64 R (.f64 R R)) (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (.f64 R R))) (.f64 (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (.f64 R R)) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (.f64 phi2 (.f64 phi2 phi2))))) (.f64 (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (.f64 R R)) (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (.f64 R R))))
(/.f64 (-.f64 (.f64 (.f64 R R) (fma.f64 phi1 (/.f64 R phi2) R)) (.f64 (fma.f64 phi1 (/.f64 R phi2) R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2)))) (.f64 (fma.f64 phi1 (/.f64 R phi2) R) (fma.f64 phi1 (/.f64 R phi2) R)))
(/.f64 (neg.f64 (neg.f64 (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2))))))) (neg.f64 (neg.f64 (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (.f64 R R)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2))))) (neg.f64 (neg.f64 (fma.f64 phi1 (/.f64 R phi2) R))))
(/.f64 (+.f64 (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2)))) (.f64 R (.f64 R R))) (+.f64 (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2)) (-.f64 (.f64 R R) (.f64 (neg.f64 (.f64 phi1 (/.f64 R phi2))) R))))
(pow.f64 (/.f64 (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (.f64 R R)) (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2)))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 phi1 (/.f64 R phi2) R) (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2)))) #s(literal -1 binary64))
(.f64 (fma.f64 R (.f64 R R) (/.f64 (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 R (.f64 R R))) (neg.f64 (.f64 phi2 (.f64 phi2 phi2))))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 phi1 (/.f64 R phi2)) (fma.f64 phi1 (/.f64 R phi2) R) (*.f64 R R))))
(.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2)))
(-.f64 #s(literal 0 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(neg.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(.f64 (neg.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)
(.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal -1 binary64)) lambda2)
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal -2 binary64)))
(-.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2)))
(+.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)) (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2))
(-.f64 (/.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2))))) (/.f64 (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 3 binary64)) (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2))))))
(-.f64 (/.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2))) (/.f64 (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64)) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2))))
(-.f64 (/.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)))) (/.f64 (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64)) (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)))))
(fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)))
(fma.f64 (.f64 R lambda1) (neg.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 (/.f64 #s(literal 1 binary64) lambda2)) (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1))) (/.f64 #s(literal 1 binary64) lambda2) (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.f64 (.f64 R lambda1) #s(literal -1 binary64)) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (neg.f64 (.f64 R lambda1)) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (/.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2) (/.f64 R #s(literal -1 binary64)) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (/.f64 (.f64 R lambda1) lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal -1 binary64)) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (/.f64 R #s(literal -1 binary64)) (/.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (/.f64 R lambda2) (/.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal -1 binary64)) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 (.f64 R lambda1) lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (/.f64 (.f64 R lambda1) #s(literal -1 binary64)) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (/.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal -1 binary64)) (/.f64 R lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (/.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2) (/.f64 lambda1 #s(literal -1 binary64)) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (/.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal -1 binary64)) (/.f64 lambda1 lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (/.f64 lambda1 lambda2) (/.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal -1 binary64)) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(fma.f64 (/.f64 lambda1 #s(literal -1 binary64)) (/.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 3 binary64))) (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)))))
(/.f64 (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 3 binary64))) (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (-.f64 (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64)) (.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)))) (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)) (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)))) (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)) (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64))) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)))
(/.f64 (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64))) (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (-.f64 (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64)) (.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)))))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64)))) (neg.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2)))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2))))) (.f64 (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 3 binary64)))) (.f64 (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)))) (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2))) (.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64)))) (.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)) (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(pow.f64 (/.f64 (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)))) (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)) (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2))))))
(.f64 (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2))))
(+.f64 (.f64 (neg.f64 lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (neg.f64 lambda2) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2))))
(+.f64 (.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2)) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2)) (neg.f64 lambda2)))
(-.f64 #s(literal 0 binary64) (.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2)))))
(fma.f64 (neg.f64 lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (.f64 (neg.f64 lambda2) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2))))
(fma.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)) (neg.f64 lambda2)))
(neg.f64 (.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2)))))
(/.f64 (.f64 (neg.f64 lambda2) (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 3 binary64)))) (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)))))
(/.f64 (.f64 (neg.f64 lambda2) (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64)))) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 3 binary64))) (neg.f64 lambda2)) (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64))) (neg.f64 lambda2)) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)))
(/.f64 (neg.f64 (.f64 (neg.f64 lambda2) (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 3 binary64))))) (neg.f64 (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2))))))
(/.f64 (neg.f64 (.f64 (neg.f64 lambda2) (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64))))) (neg.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2))))
(/.f64 (neg.f64 (.f64 (-.f64 (pow.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 3 binary64))) (neg.f64 lambda2))) (neg.f64 (fma.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2))))))
(/.f64 (neg.f64 (.f64 (-.f64 (.f64 (.f64 R R) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2) #s(literal 2 binary64))) (neg.f64 lambda2))) (neg.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (neg.f64 lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 lambda2) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2))) #s(literal 3 binary64))) (fma.f64 (.f64 (neg.f64 lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (neg.f64 lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (.f64 (.f64 (neg.f64 lambda2) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2))) (.f64 (neg.f64 lambda2) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)))) (.f64 (.f64 (neg.f64 lambda2) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (neg.f64 lambda2) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)) (neg.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2)) (.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2)) (-.f64 (.f64 (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)) (neg.f64 lambda2)) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)) (neg.f64 lambda2))) (.f64 (.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2)) (.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)) (neg.f64 lambda2))))))
(.f64 (neg.f64 lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2))) (neg.f64 lambda2))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2)))))
(.f64 (neg.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2)))) lambda2)
(.f64 (.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (neg.f64 lambda2))) #s(literal -1 binary64)) lambda2)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 lambda2) (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2)))))
(.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R)
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(/.f64 phi1 (/.f64 phi2 R))
(/.f64 #s(literal 1 binary64) (/.f64 phi2 (*.f64 R phi1)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 phi2 (*.f64 R phi1))))
(/.f64 (neg.f64 phi1) (neg.f64 (/.f64 phi2 R)))
(/.f64 (*.f64 R phi1) phi2)
(/.f64 (neg.f64 (*.f64 R phi1)) (neg.f64 phi2))
(/.f64 (*.f64 phi1 (neg.f64 R)) (neg.f64 phi2))
(/.f64 (*.f64 phi1 #s(literal 1 binary64)) (/.f64 phi2 R))
(/.f64 (*.f64 (neg.f64 R) phi1) (neg.f64 phi2))
(/.f64 (*.f64 #s(literal 1 binary64) phi1) (/.f64 phi2 R))
(/.f64 (neg.f64 (neg.f64 (*.f64 R phi1))) (neg.f64 (neg.f64 phi2)))
(/.f64 (neg.f64 (*.f64 phi1 (neg.f64 R))) (neg.f64 (neg.f64 phi2)))
(/.f64 (neg.f64 (*.f64 phi1 #s(literal 1 binary64))) (neg.f64 (/.f64 phi2 R)))
(/.f64 (neg.f64 (*.f64 (neg.f64 R) phi1)) (neg.f64 (neg.f64 phi2)))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) phi1)) (neg.f64 (/.f64 phi2 R)))
(pow.f64 (/.f64 phi2 (*.f64 R phi1)) #s(literal -1 binary64))
(.f64 R (.f64 (/.f64 #s(literal 1 binary64) phi2) phi1))
(*.f64 phi1 (/.f64 R phi2))
(*.f64 (/.f64 R phi2) phi1)
(*.f64 (/.f64 #s(literal 1 binary64) phi2) (/.f64 phi1 (/.f64 #s(literal 1 binary64) R)))
(.f64 (.f64 R phi1) (/.f64 #s(literal 1 binary64) phi2))
(*.f64 (/.f64 (neg.f64 R) phi2) (/.f64 phi1 #s(literal -1 binary64)))
(*.f64 (/.f64 (neg.f64 R) #s(literal -1 binary64)) (/.f64 phi1 phi2))
(*.f64 (/.f64 phi1 #s(literal -1 binary64)) (/.f64 (neg.f64 R) phi2))
(*.f64 (/.f64 phi1 phi2) (/.f64 (neg.f64 R) #s(literal -1 binary64)))
(*.f64 (/.f64 phi1 phi2) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) R)))
(exp.f64 (.f64 (log.f64 (/.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)))) #s(literal -1 binary64)))
(-.f64 (/.f64 #s(literal 0 binary64) (neg.f64 lambda2)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2)))
(neg.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) (neg.f64 lambda2)))
(/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)) lambda2)
(/.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))) (neg.f64 lambda2))
(/.f64 #s(literal 1 binary64) (/.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))) #s(literal 1 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) #s(literal 1 binary64)) lambda2)
(/.f64 (neg.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1)))) (neg.f64 (neg.f64 lambda2)))
(/.f64 (/.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))) #s(literal -1 binary64)) lambda2)
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) #s(literal 1 binary64))) (neg.f64 lambda2))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))))) (neg.f64 (neg.f64 (neg.f64 lambda2))))
(/.f64 (neg.f64 (/.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))) #s(literal -1 binary64))) (neg.f64 lambda2))
(pow.f64 (/.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 lambda2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 R lambda1))) #s(literal 1 binary64)) #s(literal -1 binary64))
(.f64 R (.f64 lambda1 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(.f64 R (.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) lambda2)))
(.f64 R (/.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2))
(.f64 lambda1 (.f64 R (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (.f64 R lambda1) (/.f64 #s(literal 1 binary64) lambda2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (*.f64 R lambda1) lambda2))
(.f64 (.f64 R lambda1) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
(.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) (/.f64 #s(literal 1 binary64) lambda2))
(.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1))) (/.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) lambda2))
(.f64 (/.f64 #s(literal 1 binary64) lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)))
(.f64 (/.f64 #s(literal 1 binary64) lambda2) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1))) #s(literal -1 binary64)))
(.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (*.f64 R lambda1))
(.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (/.f64 (neg.f64 (*.f64 R lambda1)) #s(literal -1 binary64)))
(.f64 (/.f64 (neg.f64 R) #s(literal -1 binary64)) (/.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2))
(.f64 (/.f64 (.f64 R lambda1) lambda2) (/.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal -1 binary64)))
(.f64 (/.f64 R #s(literal -1 binary64)) (/.f64 (neg.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2))
(.f64 (/.f64 R lambda2) (/.f64 (neg.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal -1 binary64)))
(.f64 (/.f64 (neg.f64 (.f64 R lambda1)) #s(literal -1 binary64)) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2))
(.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 (neg.f64 (*.f64 R lambda1)) lambda2))
(.f64 (/.f64 (neg.f64 (.f64 R lambda1)) lambda2) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal -1 binary64)))
(.f64 (/.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal -1 binary64)) (/.f64 (*.f64 R lambda1) lambda2))
(.f64 (/.f64 (.f64 R lambda1) #s(literal -1 binary64)) (/.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2))
(.f64 (/.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2) (/.f64 (*.f64 R lambda1) #s(literal -1 binary64)))
(.f64 (/.f64 (neg.f64 R) lambda2) (/.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal -1 binary64) lambda2) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 R lambda1)) #s(literal -1 binary64)))

eval175.0ms (1.5%)

Memory: -8.2MiB live, 225.2MiB allocated
Compiler: Compiled 42 883 to 2 126 computations (95% saved)

prune174.0ms (1.4%)

Memory

28.8MiB live, 226.4MiB allocated

Pruning

33 alts after pruning (30 fresh and 3 done)

	Pruned	Kept	Total
New	1 214	19	1 233
Fresh	8	11	19
Picked	2	3	5
Done	0	0	0
Total	1 224	33	1 257

Accuracy

98.0%

Counts

1 257 → 33

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.9%	(.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R)
	37.3%	(.f64 R (hypot.f64 (-.f64 phi1 phi2) (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
	56.9%	(.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
	21.9%	(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
▶	64.8%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
✓	71.9%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
▶	66.3%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
	11.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 lambda2))))
	20.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))))
	10.0%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda2))))
	7.8%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
	8.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
	12.7%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
	12.4%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))))
▶	35.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
	10.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))))
	58.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
	16.4%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2))))
	20.8%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
	21.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
	7.4%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
▶	1.4%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
	34.2%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1)))
▶	20.5%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
	9.7%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
✓	2.1%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
	10.0%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 #s(approx (- ( (cos (* 1/2 (+ phi1 phi2))) R) (/ (* (* R lambda1) (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2))) (neg.f64 lambda2)))
	57.7%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
	60.4%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
✓	32.9%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
	11.0%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
	58.6%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
	60.4%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))

Compiler

Compiled 1 267 to 770 computations (39.2% saved)

simplify207.0ms (1.7%)

Memory

6.2MiB live, 210.7MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 19 expressions of interest:

New	Metric	Score
cost-diff	0	(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
cost-diff	0	(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
cost-diff	0	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
cost-diff	0	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
cost-diff	0	(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
cost-diff	0	(*.f64 R lambda2)
cost-diff	0	(.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
cost-diff	0	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
cost-diff	0	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
cost-diff	256	(.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2))
cost-diff	320	(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2)))
cost-diff	2624	(/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R))
cost-diff	0	(neg.f64 phi1)
cost-diff	0	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))
cost-diff	0	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
cost-diff	0	#s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))
cost-diff	0	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))
cost-diff	0	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
cost-diff	4928	(hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))

Rules

6 286×	`lower-fma.f32`
6 284×	`lower-fma.f64`
4 212×	`lower-*.f32`
4 186×	`lower-*.f64`
2 078×	`lower-/.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	53	546
0	86	546
1	152	542
2	336	538
3	1230	535
4	3794	509
5	7638	509
0	8238	380

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Calls

Call 1

Inputs
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))
(hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))
phi1
#s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))
(neg.f64 phi1)
phi1
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
(/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R))
(.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2))
(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2)))
(*.f64 R R)
R
(/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))
(.f64 (.f64 R phi1) (*.f64 R phi1))
(*.f64 R phi1)
phi1
(*.f64 phi2 phi2)
phi2
(neg.f64 phi2)
(fma.f64 phi1 (/.f64 R phi2) R)
(/.f64 R phi2)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R lambda2)
R
lambda2
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
phi2
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(*.f64 #s(literal 1/2 binary64) phi2)
#s(literal 1/2 binary64)

Outputs
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))
(hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))
(sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))
phi1
#s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))
(neg.f64 phi1)
phi1
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 (/.f64 (.f64 R phi1) phi2) R)))
(/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R))
(.f64 phi2 (-.f64 (/.f64 (.f64 R phi1) phi2) R))
(.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2))
(.f64 phi2 (.f64 (.f64 R R) (fma.f64 phi1 (/.f64 phi1 (.f64 phi2 phi2)) #s(literal -1 binary64))))
(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2)))
(.f64 R (fma.f64 (.f64 phi1 phi1) (/.f64 R (*.f64 phi2 (neg.f64 phi2))) R))
(*.f64 R R)
R
(/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))
(.f64 (.f64 R (.f64 R phi1)) (/.f64 phi1 (.f64 phi2 phi2)))
(.f64 (.f64 R phi1) (*.f64 R phi1))
(.f64 R (.f64 R (*.f64 phi1 phi1)))
(*.f64 R phi1)
phi1
(*.f64 phi2 phi2)
phi2
(neg.f64 phi2)
(fma.f64 phi1 (/.f64 R phi2) R)
(fma.f64 R (/.f64 phi1 phi2) R)
(/.f64 R phi2)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R lambda2)
R
lambda2
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
phi2
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) phi2)
(*.f64 phi2 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)

localize282.0ms (2.3%)

Memory

-15.0MiB live, 222.9MiB allocated

Localize:

Found 19 expressions of interest:

New	Metric	Score
accuracy	0	(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
accuracy	0.03125	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
accuracy	0.109375	(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
accuracy	25.915291788984046	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
accuracy	0	(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
accuracy	0.1953125	(.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
accuracy	13.737482053809643	(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
accuracy	49.994958966712005	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
accuracy	8.847596389075973	(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2)))
accuracy	13.75949251084812	(/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))
accuracy	22.84060238576982	(/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R))
accuracy	62.90719888855278	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
accuracy	0	(neg.f64 phi1)
accuracy	0.03125	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
accuracy	43.40391840875624	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))
accuracy	0.00390625	(hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))
accuracy	0.03125	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
accuracy	22.663211456581507	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))
accuracy	30.09482330347665	#s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))

Samples

185.0ms	187×	1	valid
21.0ms	69×	0	valid

Compiler

Compiled 471 to 42 computations (91.1% saved)

Precisions

Click to see histograms. Total time spent on operations: 167.0ms

ival-mult: 96.0ms (57.3% of total)

ival-cos: 26.0ms (15.5% of total)

ival-hypot: 14.0ms (8.4% of total)

adjust: 11.0ms (6.6% of total)

ival-div: 10.0ms (6% of total)

ival-sub: 5.0ms (3% of total)

ival-add: 4.0ms (2.4% of total)

ival-neg: 2.0ms (1.2% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

series110.0ms (0.9%)

Memory

16.5MiB live, 166.6MiB allocated

Counts

22 → 876

Calls

Call 1

Inputs
#<alt (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))>
#<alt (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))>
#<alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))>
#<alt #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))>
#<alt (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))>
#<alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))>
#<alt (neg.f64 phi1)>
#<alt (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R))>
#<alt (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2)))>
#<alt (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2))>
#<alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))>
#<alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))>
#<alt (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))>
#<alt (*.f64 R lambda2)>
#<alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))>
#<alt (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))>
#<alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))>
#<alt (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))>
#<alt (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))>
#<alt (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))>
#<alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))>
#<alt (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))>

Outputs
#<alt (- lambda1 lambda2)>
#<alt (- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)>
#<alt phi1>
#<alt (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 phi1)))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 phi1)))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (* lambda1 (cos (* 1/2 phi1)))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 phi1)))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 phi1)))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))>
#<alt (- lambda1 lambda2)>
#<alt (- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi1)) (- lambda1 lambda2))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 phi1)>
#<alt (* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))>
#<alt (* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))>
#<alt (* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))>
#<alt (* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))>
#<alt (* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))>
#<alt (* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))>
#<alt (* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))>
#<alt (* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))>
#<alt (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (- (* -1 (/ phi1 phi2)) 1))>
#<alt (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (- (* -1 (/ phi1 phi2)) 1))>
#<alt (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (- (* -1 (/ phi1 phi2)) 1))>
#<alt (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (- (* -1 (/ phi1 phi2)) 1))>
#<alt (* -1 (* R phi2))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* R phi1)>
#<alt (* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))>
#<alt (* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))>
#<alt (* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))>
#<alt (* R phi1)>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (+ (* -1 (* R phi2)) (* R phi1))>
#<alt (* -1 (* R phi2))>
#<alt (* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))>
#<alt (* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))>
#<alt (* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))>
#<alt (* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))>
#<alt (* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))>
#<alt (* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))>
#<alt (* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))>
#<alt (* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))>
#<alt (* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))>
#<alt (* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))>
#<alt (* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))>
#<alt (* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))>
#<alt (* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))>
#<alt (* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))>
#<alt (pow R 2)>
#<alt (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))>
#<alt (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))>
#<alt (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))>
#<alt (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2)))>
#<alt (* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))>
#<alt (* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))>
#<alt (* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))>
#<alt (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2)))>
#<alt (* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))>
#<alt (* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))>
#<alt (* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))>
#<alt (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2)))>
#<alt (/ (- (* (pow R 2) (pow phi2 2)) (* (pow R 2) (pow phi1 2))) (pow phi2 2))>
#<alt (/ (- (* (pow R 2) (pow phi2 2)) (* (pow R 2) (pow phi1 2))) (pow phi2 2))>
#<alt (/ (- (* (pow R 2) (pow phi2 2)) (* (pow R 2) (pow phi1 2))) (pow phi2 2))>
#<alt (pow R 2)>
#<alt (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))>
#<alt (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))>
#<alt (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))>
#<alt (pow R 2)>
#<alt (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))>
#<alt (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))>
#<alt (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))>
#<alt (* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* -1 (* (pow R 2) phi2))>
#<alt (+ (* -1 (* (pow R 2) phi2)) (/ (* (pow R 2) (pow phi1 2)) phi2))>
#<alt (+ (* -1 (* (pow R 2) phi2)) (/ (* (pow R 2) (pow phi1 2)) phi2))>
#<alt (+ (* -1 (* (pow R 2) phi2)) (/ (* (pow R 2) (pow phi1 2)) phi2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) phi2)>
#<alt (* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))>
#<alt (* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))>
#<alt (* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))>
#<alt (/ (* (pow R 2) (pow phi1 2)) phi2)>
#<alt (* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))>
#<alt (* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))>
#<alt (* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))>
#<alt (/ (* (pow R 2) (pow phi1 2)) phi2)>
#<alt (/ (+ (* -1 (* (pow R 2) (pow phi2 2))) (* (pow R 2) (pow phi1 2))) phi2)>
#<alt (/ (+ (* -1 (* (pow R 2) (pow phi2 2))) (* (pow R 2) (pow phi1 2))) phi2)>
#<alt (/ (+ (* -1 (* (pow R 2) (pow phi2 2))) (* (pow R 2) (pow phi1 2))) phi2)>
#<alt (* -1 (* (pow R 2) phi2))>
#<alt (* phi2 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))))>
#<alt (* phi2 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))))>
#<alt (* phi2 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))))>
#<alt (* -1 (* (pow R 2) phi2))>
#<alt (* -1 (* phi2 (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))))>
#<alt (* -1 (* phi2 (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))))>
#<alt (* -1 (* phi2 (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi2))))>
#<alt (+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))>
#<alt (+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))>
#<alt (+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (- lambda1 lambda2)>
#<alt (- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)>
#<alt phi2>
#<alt (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 phi2)))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 phi2))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 phi2)))>
#<alt (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi2))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))>
#<alt (* lambda1 (cos (* 1/2 phi2)))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 phi2)))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 phi2)))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi2))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi2))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))>
#<alt (- lambda1 lambda2)>
#<alt (- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))>
#<alt (* 1/2 phi2)>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (* 1/2 phi1)>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* 1/2 phi1)>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* 1/2 phi1)>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (* 1/2 phi2)>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* 1/2 phi2)>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt 1>
#<alt (+ 1 (* -1/8 (pow phi2 2)))>
#<alt (+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8)))>
#<alt (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8)))>
#<alt (cos (* 1/2 phi2))>
#<alt (cos (* 1/2 phi2))>
#<alt (cos (* 1/2 phi2))>
#<alt (cos (* 1/2 phi2))>
#<alt (cos (* 1/2 phi2))>
#<alt (cos (* 1/2 phi2))>
#<alt (cos (* 1/2 phi2))>
#<alt (cos (* 1/2 phi2))>

Calls

219 calls:

Time	Variable		Point	Expression
27.0ms	phi1	@	inf	(/ (* (- (* R R) (/ (* (* R phi1) (* R phi1)) (* phi2 phi2))) (neg phi2)) (+ (* phi1 (/ R phi2)) R))
14.0ms	lambda2	@	0	(* (* R lambda2) (cos (* 1/2 (+ phi1 phi2))))
4.0ms	phi1	@	-inf	(* 1/2 (+ phi1 phi2))
2.0ms	R	@	0	(/ (* (- (* R R) (/ (* (* R phi1) (* R phi1)) (* phi2 phi2))) (neg phi2)) (+ (* phi1 (/ R phi2)) R))
1.0ms	phi2	@	0	(/ (* (- (* R R) (/ (* (* R phi1) (* R phi1)) (* phi2 phi2))) (neg phi2)) (+ (* phi1 (/ R phi2)) R))

simplify542.0ms (4.5%)

Memory

13.3MiB live, 666.5MiB allocated

Algorithm

1×	egg-herbie

Rules

10 154×	`lower-fma.f64`
10 154×	`lower-fma.f32`
8 532×	`lower-*.f64`
8 532×	`lower-*.f32`
5 132×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1274	31281
1	4236	30572
0	8730	28284

Stop Event

1×	iter limit
1×	node limit

Counts

876 → 868

Calls

Call 1

Inputs
(- lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
phi1
(* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))
(* lambda1 (cos (* 1/2 phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))))
(* -1 (* lambda1 (cos (* 1/2 phi1))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))
(* lambda2 (cos (* 1/2 phi1)))
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(* lambda1 (cos (* 1/2 phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (cos (* 1/2 phi1)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(* lambda1 (cos (* 1/2 phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(- lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 phi1)
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (- (* -1 (/ phi1 phi2)) 1))
(/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (- (* -1 (/ phi1 phi2)) 1))
(/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (- (* -1 (/ phi1 phi2)) 1))
(/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (- (* -1 (/ phi1 phi2)) 1))
(* -1 (* R phi2))
(+ (* -1 (* R phi2)) (* R phi1))
(+ (* -1 (* R phi2)) (* R phi1))
(+ (* -1 (* R phi2)) (* R phi1))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* R phi1)
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(* R phi1)
(+ (* -1 (* R phi2)) (* R phi1))
(+ (* -1 (* R phi2)) (* R phi1))
(+ (* -1 (* R phi2)) (* R phi1))
(* -1 (* R phi2))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(pow R 2)
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2)))
(* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))
(* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))
(* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))
(* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2)))
(* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))
(* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))
(* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))
(* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2)))
(/ (- (* (pow R 2) (pow phi2 2)) (* (pow R 2) (pow phi1 2))) (pow phi2 2))
(/ (- (* (pow R 2) (pow phi2 2)) (* (pow R 2) (pow phi1 2))) (pow phi2 2))
(/ (- (* (pow R 2) (pow phi2 2)) (* (pow R 2) (pow phi1 2))) (pow phi2 2))
(pow R 2)
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(pow R 2)
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(* -1 (* (pow R 2) phi2))
(+ (* -1 (* (pow R 2) phi2)) (/ (* (pow R 2) (pow phi1 2)) phi2))
(+ (* -1 (* (pow R 2) phi2)) (/ (* (pow R 2) (pow phi1 2)) phi2))
(+ (* -1 (* (pow R 2) phi2)) (/ (* (pow R 2) (pow phi1 2)) phi2))
(/ (* (pow R 2) (pow phi1 2)) phi2)
(* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))
(* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))
(* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))
(/ (* (pow R 2) (pow phi1 2)) phi2)
(* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))
(* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))
(* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))
(/ (* (pow R 2) (pow phi1 2)) phi2)
(/ (+ (* -1 (* (pow R 2) (pow phi2 2))) (* (pow R 2) (pow phi1 2))) phi2)
(/ (+ (* -1 (* (pow R 2) (pow phi2 2))) (* (pow R 2) (pow phi1 2))) phi2)
(/ (+ (* -1 (* (pow R 2) (pow phi2 2))) (* (pow R 2) (pow phi1 2))) phi2)
(* -1 (* (pow R 2) phi2))
(* phi2 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))))
(* phi2 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))))
(* phi2 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))))
(* -1 (* (pow R 2) phi2))
(* -1 (* phi2 (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))))
(* -1 (* phi2 (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))))
(* -1 (* phi2 (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(- lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
phi2
(* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(* lambda1 (cos (* 1/2 phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))))
(* -1 (* lambda1 (cos (* 1/2 phi2))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(* lambda2 (cos (* 1/2 phi2)))
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(* lambda1 (cos (* 1/2 phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (cos (* 1/2 phi2)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (cos (* 1/2 phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(- lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(* 1/2 phi2)
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(* 1/2 phi1)
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* 1/2 phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* 1/2 phi1)
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(* 1/2 phi2)
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* 1/2 phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
1
(+ 1 (* -1/8 (pow phi2 2)))
(+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8)))
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8)))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))
(cos (* 1/2 phi2))

Outputs
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi1 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(-.f64 (fma.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 phi1 phi1) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (-.f64 lambda1 lambda2)))) lambda1) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/2 (/ (* (pow phi1 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
(-.f64 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 phi1 phi1) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/1440 binary64) (.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (-.f64 lambda1 lambda2)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (-.f64 lambda1 lambda2))) lambda1) lambda2)
phi1
(* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) phi1)
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) phi1)
(* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi1 #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) #s(literal 1 binary64)) (neg.f64 phi1))
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(neg.f64 (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))) phi1))
(* -1 (* phi1 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi1)) 4) (pow (- lambda1 lambda2) 4)) (pow phi1 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi1)) 6) (pow (- lambda1 lambda2) 6)) (pow phi1 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))))
(neg.f64 (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi1 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi1 #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))) phi1))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi1 phi1)))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))
(fma.f64 lambda1 (fma.f64 lambda2 (neg.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi1 phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi1 phi1)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 lambda2 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi1 phi1)))))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi1 phi1)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 lambda2 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi1 phi1)))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 lambda2 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi1 phi1)) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi1 phi1)))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda1 (cos (* 1/2 phi1)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 lambda1 lambda1))))))
(* lambda1 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* (pow lambda1 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda1 2) (cos (* 1/2 phi1)))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 phi1 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 lambda1 (.f64 lambda1 lambda1)))) (/.f64 (.f64 phi1 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 lambda1 lambda1)))) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1)))))
(.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda1 (cos (* 1/2 phi1))))) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (fma.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda1))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi1 2)) (* lambda1 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda1)) (* lambda2 (cos (* 1/2 phi1)))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 phi1 phi1) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (.f64 phi1 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) lambda1)) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi1)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi1 phi1)))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (hypot.f64 phi1 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))))))
(fma.f64 lambda2 (fma.f64 lambda1 (neg.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi1 phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi1 phi1)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi1 phi1)))))))) (hypot.f64 phi1 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi1)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi1)) 2) (- (pow (cos (* 1/2 phi1)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi1)) 2)) (pow phi1 2)) 3))))))))))
(fma.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi1 phi1)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi1 phi1)))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi1 phi1)) #s(literal 3 binary64))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi1 phi1)))) (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (hypot.f64 phi1 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (cos (* 1/2 phi1)))
(.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2))))
(.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 lambda2 lambda2))) (/.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi1)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* (pow lambda2 3) (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (* (pow lambda2 2) (cos (* 1/2 phi1)))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 phi1 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 lambda2 (.f64 lambda2 lambda2)))) (/.f64 (.f64 phi1 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 lambda2 lambda2)))) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)) lambda2))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1/2 (/ (pow phi1 2) (* lambda2 (cos (* 1/2 phi1))))) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (fma.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi1 2)) (* lambda2 (cos (* 1/2 phi1))))) (* 1/2 (/ (pow phi1 2) (cos (* 1/2 phi1))))) lambda2)) (* lambda1 (cos (* 1/2 phi1)))) lambda2)))))
(neg.f64 (.f64 lambda2 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 phi1 phi1) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (/.f64 (.f64 phi1 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) lambda2)) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (-.f64 (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 lambda1 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda2 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (neg.f64 lambda1))) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 R (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 phi1 R) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 phi1 R) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 phi1 R)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(.f64 phi1 (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) (*.f64 R (/.f64 phi2 (neg.f64 phi1))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))))) (.f64 R (/.f64 phi2 phi1)))))
(* -1 (* R phi1))
(*.f64 phi1 (neg.f64 R))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (.f64 R phi2)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (-.f64 (.f64 R phi2) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 R (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 R phi2) (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(.f64 phi2 (-.f64 R (/.f64 (.f64 phi1 R) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (+.f64 R (-.f64 (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi2 phi2)) (/.f64 (.f64 phi1 R) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))))) (neg.f64 (/.f64 (*.f64 phi1 R) phi2)))))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (-.f64 R (/.f64 (.f64 phi1 R) phi2)) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (.f64 phi1 R)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 phi1 R) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 R (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda1 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda1 (+.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1)) (neg.f64 lambda1))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda2 (+.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(neg.f64 (.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(neg.f64 (.f64 lambda2 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(neg.f64 (.f64 lambda2 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 phi1 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))))) (/.f64 phi2 phi1)) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) phi2) (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) (neg.f64 phi2)) phi2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* lambda1 (cos (* 1/2 phi1)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda1 (cos (* 1/2 phi1)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda2 (cos (* 1/2 phi1))) lambda1))))
(.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda1))
(* lambda1 (cos (* 1/2 phi1)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* lambda1 (cos (* 1/2 phi1))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1 (/ (* lambda1 (cos (* 1/2 phi1))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi1 2) (- lambda1 lambda2)))) lambda2)
(-.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (-.f64 lambda1 lambda2) lambda1) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi1 2) (- lambda1 lambda2)))))) lambda2)
(-.f64 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 phi1 phi1)) #s(literal 1/384 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64))) lambda1) lambda2)
(- (+ lambda1 (* (pow phi1 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/46080 (* (pow phi1 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(-.f64 (fma.f64 (.f64 phi1 phi1) (fma.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64) (.f64 (.f64 phi1 phi1) (fma.f64 (-.f64 lambda1 lambda2) #s(literal 1/384 binary64) (.f64 (.f64 #s(literal -1/46080 binary64) (.f64 phi1 phi1)) (-.f64 lambda1 lambda2))))) lambda1) lambda2)
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* (cos (* 1/2 phi1)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (-.f64 (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 lambda1 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda2 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (neg.f64 lambda1))) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 R (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 phi1 R) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 phi1 R) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 phi1 R)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(.f64 phi1 (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) (*.f64 R (/.f64 phi2 (neg.f64 phi1))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))))) (.f64 R (/.f64 phi2 phi1)))))
(* -1 (* R phi1))
(*.f64 phi1 (neg.f64 R))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (.f64 R phi2)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (-.f64 (.f64 R phi2) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 R (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 R phi2) (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(.f64 phi2 (-.f64 R (/.f64 (.f64 phi1 R) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (+.f64 R (-.f64 (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi2 phi2)) (/.f64 (.f64 phi1 R) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))))) (neg.f64 (/.f64 (*.f64 phi1 R) phi2)))))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (-.f64 R (/.f64 (.f64 phi1 R) phi2)) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (.f64 phi1 R)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 phi1 R) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 R (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda1 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda1 (+.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1)) (neg.f64 lambda1))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda2 (+.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(neg.f64 (.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(neg.f64 (.f64 lambda2 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(neg.f64 (.f64 lambda2 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 phi1 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))))) (/.f64 phi2 phi1)) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) phi2) (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) (neg.f64 phi2)) phi2))
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(/.f64 (.f64 (.f64 R phi2) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(/.f64 (.f64 (.f64 R phi2) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(/.f64 (.f64 (.f64 R phi2) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(/.f64 (.f64 (.f64 R phi2) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(/.f64 (.f64 (.f64 R phi2) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(/.f64 (.f64 (.f64 R phi2) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(/.f64 (.f64 (.f64 R phi2) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (+ 1 (/ phi1 phi2))))
(/.f64 (.f64 (.f64 R phi2) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (- (* -1 (/ phi1 phi2)) 1))
(/.f64 (.f64 (.f64 R phi2) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))) (+.f64 (neg.f64 (/.f64 phi1 phi2)) #s(literal -1 binary64)))
(/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (- (* -1 (/ phi1 phi2)) 1))
(/.f64 (.f64 (.f64 R phi2) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))) (+.f64 (neg.f64 (/.f64 phi1 phi2)) #s(literal -1 binary64)))
(/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (- (* -1 (/ phi1 phi2)) 1))
(/.f64 (.f64 (.f64 R phi2) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))) (+.f64 (neg.f64 (/.f64 phi1 phi2)) #s(literal -1 binary64)))
(/ (* R (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))) (- (* -1 (/ phi1 phi2)) 1))
(/.f64 (.f64 (.f64 R phi2) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))) (+.f64 (neg.f64 (/.f64 phi1 phi2)) #s(literal -1 binary64)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 phi1 R (*.f64 R (neg.f64 phi2)))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 phi1 R (*.f64 R (neg.f64 phi2)))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 phi1 R (*.f64 R (neg.f64 phi2)))
(* R phi1)
(*.f64 phi1 R)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(.f64 phi1 (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(.f64 phi1 (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(.f64 phi1 (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* R phi1)
(*.f64 phi1 R)
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(.f64 (neg.f64 phi1) (-.f64 (.f64 R (/.f64 phi2 phi1)) R))
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(.f64 (neg.f64 phi1) (-.f64 (.f64 R (/.f64 phi2 phi1)) R))
(* -1 (* phi1 (+ (* -1 R) (/ (* R phi2) phi1))))
(.f64 (neg.f64 phi1) (-.f64 (.f64 R (/.f64 phi2 phi1)) R))
(* R phi1)
(*.f64 phi1 R)
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 phi1 R (*.f64 R (neg.f64 phi2)))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 phi1 R (*.f64 R (neg.f64 phi2)))
(+ (* -1 (* R phi2)) (* R phi1))
(fma.f64 phi1 R (*.f64 R (neg.f64 phi2)))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(.f64 phi2 (-.f64 (/.f64 (.f64 phi1 R) phi2) R))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(.f64 phi2 (-.f64 (/.f64 (.f64 phi1 R) phi2) R))
(* phi2 (+ (* -1 R) (/ (* R phi1) phi2)))
(.f64 phi2 (-.f64 (/.f64 (.f64 phi1 R) phi2) R))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (-.f64 R (/.f64 (.f64 phi1 R) phi2)) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (-.f64 R (/.f64 (.f64 phi1 R) phi2)) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (-.f64 R (/.f64 (.f64 phi1 R) phi2)) (neg.f64 phi2))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2))) (.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2))) (.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2))) (.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2))) (.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2))) (.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2))) (.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2))) (.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2))) (.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2))) (.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2))) (.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2))) (.f64 R R))
(* (pow R 2) (- 1 (/ (pow phi1 2) (pow phi2 2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2))) (.f64 R R))
(pow R 2)
(*.f64 R R)
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (*.f64 phi2 phi2)))
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (*.f64 phi2 phi2)))
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (*.f64 phi2 phi2)))
(* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2)))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (neg.f64 (.f64 phi2 phi2)))
(* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 R R) (.f64 phi1 phi1)) (/.f64 (.f64 R R) (.f64 phi2 phi2))))
(* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 R R) (.f64 phi1 phi1)) (/.f64 (.f64 R R) (.f64 phi2 phi2))))
(* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 R R) (.f64 phi1 phi1)) (/.f64 (.f64 R R) (.f64 phi2 phi2))))
(* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2)))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (neg.f64 (.f64 phi2 phi2)))
(* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 R R) (.f64 phi1 phi1)) (/.f64 (.f64 R R) (.f64 phi2 phi2))))
(* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 R R) (.f64 phi1 phi1)) (/.f64 (.f64 R R) (.f64 phi2 phi2))))
(* (pow phi1 2) (- (/ (pow R 2) (pow phi1 2)) (/ (pow R 2) (pow phi2 2))))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 R R) (.f64 phi1 phi1)) (/.f64 (.f64 R R) (.f64 phi2 phi2))))
(* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2)))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (neg.f64 (.f64 phi2 phi2)))
(/ (- (* (pow R 2) (pow phi2 2)) (* (pow R 2) (pow phi1 2))) (pow phi2 2))
(/.f64 (.f64 (.f64 R R) (.f64 (+.f64 phi1 phi2) (-.f64 phi2 phi1))) (.f64 phi2 phi2))
(/ (- (* (pow R 2) (pow phi2 2)) (* (pow R 2) (pow phi1 2))) (pow phi2 2))
(/.f64 (.f64 (.f64 R R) (.f64 (+.f64 phi1 phi2) (-.f64 phi2 phi1))) (.f64 phi2 phi2))
(/ (- (* (pow R 2) (pow phi2 2)) (* (pow R 2) (pow phi1 2))) (pow phi2 2))
(/.f64 (.f64 (.f64 R R) (.f64 (+.f64 phi1 phi2) (-.f64 phi2 phi1))) (.f64 phi2 phi2))
(pow R 2)
(*.f64 R R)
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (*.f64 phi2 phi2)))
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (*.f64 phi2 phi2)))
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (*.f64 phi2 phi2)))
(pow R 2)
(*.f64 R R)
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (*.f64 phi2 phi2)))
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (*.f64 phi2 phi2)))
(+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))
(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (*.f64 phi2 phi2)))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(neg.f64 (.f64 (.f64 phi2 (.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(neg.f64 (.f64 (.f64 phi2 (.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(neg.f64 (.f64 (.f64 phi2 (.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(neg.f64 (.f64 (.f64 phi2 (.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(neg.f64 (.f64 (.f64 phi2 (.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(neg.f64 (.f64 (.f64 phi2 (.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(neg.f64 (.f64 (.f64 phi2 (.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(neg.f64 (.f64 (.f64 phi2 (.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(neg.f64 (.f64 (.f64 phi2 (.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(neg.f64 (.f64 (.f64 phi2 (.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(neg.f64 (.f64 (.f64 phi2 (.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* -1 (* (pow R 2) (* phi2 (- 1 (/ (pow phi1 2) (pow phi2 2))))))
(neg.f64 (.f64 (.f64 phi2 (.f64 R R)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* -1 (* (pow R 2) phi2))
(.f64 phi2 (.f64 R (neg.f64 R)))
(+ (* -1 (* (pow R 2) phi2)) (/ (* (pow R 2) (pow phi1 2)) phi2))
(fma.f64 (.f64 R R) (/.f64 (.f64 phi1 phi1) phi2) (.f64 phi2 (.f64 R (neg.f64 R))))
(+ (* -1 (* (pow R 2) phi2)) (/ (* (pow R 2) (pow phi1 2)) phi2))
(fma.f64 (.f64 R R) (/.f64 (.f64 phi1 phi1) phi2) (.f64 phi2 (.f64 R (neg.f64 R))))
(+ (* -1 (* (pow R 2) phi2)) (/ (* (pow R 2) (pow phi1 2)) phi2))
(fma.f64 (.f64 R R) (/.f64 (.f64 phi1 phi1) phi2) (.f64 phi2 (.f64 R (neg.f64 R))))
(/ (* (pow R 2) (pow phi1 2)) phi2)
(.f64 (.f64 R R) (/.f64 (*.f64 phi1 phi1) phi2))
(* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 R R) phi2) (/.f64 (.f64 phi2 (.f64 R R)) (.f64 phi1 phi1))))
(* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 R R) phi2) (/.f64 (.f64 phi2 (.f64 R R)) (.f64 phi1 phi1))))
(* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 R R) phi2) (/.f64 (.f64 phi2 (.f64 R R)) (.f64 phi1 phi1))))
(/ (* (pow R 2) (pow phi1 2)) phi2)
(.f64 (.f64 R R) (/.f64 (*.f64 phi1 phi1) phi2))
(* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 R R) phi2) (/.f64 (.f64 phi2 (.f64 R R)) (.f64 phi1 phi1))))
(* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 R R) phi2) (/.f64 (.f64 phi2 (.f64 R R)) (.f64 phi1 phi1))))
(* (pow phi1 2) (+ (* -1 (/ (* (pow R 2) phi2) (pow phi1 2))) (/ (pow R 2) phi2)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 R R) phi2) (/.f64 (.f64 phi2 (.f64 R R)) (.f64 phi1 phi1))))
(/ (* (pow R 2) (pow phi1 2)) phi2)
(.f64 (.f64 R R) (/.f64 (*.f64 phi1 phi1) phi2))
(/ (+ (* -1 (* (pow R 2) (pow phi2 2))) (* (pow R 2) (pow phi1 2))) phi2)
(/.f64 (fma.f64 (.f64 phi1 phi1) (.f64 R R) (.f64 (.f64 phi2 phi2) (*.f64 R (neg.f64 R)))) phi2)
(/ (+ (* -1 (* (pow R 2) (pow phi2 2))) (* (pow R 2) (pow phi1 2))) phi2)
(/.f64 (fma.f64 (.f64 phi1 phi1) (.f64 R R) (.f64 (.f64 phi2 phi2) (*.f64 R (neg.f64 R)))) phi2)
(/ (+ (* -1 (* (pow R 2) (pow phi2 2))) (* (pow R 2) (pow phi1 2))) phi2)
(/.f64 (fma.f64 (.f64 phi1 phi1) (.f64 R R) (.f64 (.f64 phi2 phi2) (*.f64 R (neg.f64 R)))) phi2)
(* -1 (* (pow R 2) phi2))
(.f64 phi2 (.f64 R (neg.f64 R)))
(* phi2 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))))
(.f64 phi2 (fma.f64 (.f64 R R) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (*.f64 R (neg.f64 R))))
(* phi2 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))))
(.f64 phi2 (fma.f64 (.f64 R R) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (*.f64 R (neg.f64 R))))
(* phi2 (+ (* -1 (pow R 2)) (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))))
(.f64 phi2 (fma.f64 (.f64 R R) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (*.f64 R (neg.f64 R))))
(* -1 (* (pow R 2) phi2))
(.f64 phi2 (.f64 R (neg.f64 R)))
(* -1 (* phi2 (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))))
(.f64 (neg.f64 phi2) (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))))
(* -1 (* phi2 (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))))
(.f64 (neg.f64 phi2) (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))))
(* -1 (* phi2 (+ (* -1 (/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))) (pow R 2))))
(.f64 (neg.f64 phi2) (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (-.f64 (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 lambda1 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda2 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (neg.f64 lambda1))) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 R (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 phi1 R) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 phi1 R) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 phi1 R)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(.f64 phi1 (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) (*.f64 R (/.f64 phi2 (neg.f64 phi1))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))))) (.f64 R (/.f64 phi2 phi1)))))
(* -1 (* R phi1))
(*.f64 phi1 (neg.f64 R))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (.f64 R phi2)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (-.f64 (.f64 R phi2) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 R (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 R phi2) (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(.f64 phi2 (-.f64 R (/.f64 (.f64 phi1 R) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (+.f64 R (-.f64 (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi2 phi2)) (/.f64 (.f64 phi1 R) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))))) (neg.f64 (/.f64 (*.f64 phi1 R) phi2)))))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (-.f64 R (/.f64 (.f64 phi1 R) phi2)) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (.f64 phi1 R)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 phi1 R) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 R (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (-.f64 (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 lambda1 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda2 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (neg.f64 lambda1))) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 R (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 phi1 R) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 phi1 R) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 phi1 R)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(.f64 phi1 (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) (*.f64 R (/.f64 phi2 (neg.f64 phi1))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))))) (.f64 R (/.f64 phi2 phi1)))))
(* -1 (* R phi1))
(*.f64 phi1 (neg.f64 R))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (.f64 R phi2)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (-.f64 (.f64 R phi2) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 R (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 R phi2) (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(.f64 phi2 (-.f64 R (/.f64 (.f64 phi1 R) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (+.f64 R (-.f64 (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi2 phi2)) (/.f64 (.f64 phi1 R) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))))) (neg.f64 (/.f64 (*.f64 phi1 R) phi2)))))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (-.f64 R (/.f64 (.f64 phi1 R) phi2)) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (.f64 phi1 R)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 phi1 R) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 R (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 phi2))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(fma.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 #s(literal -1/2 binary64) R) (.f64 (.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(fma.f64 phi1 (fma.f64 (.f64 #s(literal -1/8 binary64) R) (.f64 (.f64 lambda2 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 #s(literal 1/48 binary64) R) (.f64 (.f64 lambda2 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(fma.f64 (.f64 #s(literal -1/2 binary64) R) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (.f64 R (.f64 (.f64 lambda2 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 (.f64 #s(literal 1/48 binary64) R) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal 1/48 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal -1/8 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.f64 (.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (-.f64 (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 lambda1 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda2 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (neg.f64 lambda1))) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 R (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 R lambda1) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 (neg.f64 (.f64 R lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (fma.f64 R (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (neg.f64 lambda2))) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 phi1 R) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 phi1 R) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 phi1 R)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(.f64 phi1 (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) (*.f64 R (/.f64 phi2 (neg.f64 phi1))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))))) (.f64 R (/.f64 phi2 phi1)))))
(* -1 (* R phi1))
(*.f64 phi1 (neg.f64 R))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (.f64 R phi2)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (-.f64 (.f64 R phi2) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 R (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) phi1)) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 R phi2) (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 R phi2) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(.f64 phi2 (-.f64 R (/.f64 (.f64 phi1 R) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (+.f64 R (-.f64 (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) R) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi2 phi2)) (/.f64 (.f64 phi1 R) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))))) (neg.f64 (/.f64 (*.f64 phi1 R) phi2)))))
(* -1 (* R phi2))
(*.f64 R (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (-.f64 R (/.f64 (.f64 phi1 R) phi2)) (neg.f64 phi2))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (.f64 phi1 R)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 phi1 R) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 R (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda1 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda1 (+.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))) (/.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda1)) lambda1)) (neg.f64 lambda1))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda2 (+.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(neg.f64 (.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(neg.f64 (.f64 lambda2 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (fma.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(neg.f64 (.f64 lambda2 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 (-.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) lambda2)) lambda2))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi1 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 phi1 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 phi2 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))))) (/.f64 phi2 phi1)) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) phi2) (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 phi1 #s(literal -2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (neg.f64 (/.f64 phi1 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (*.f64 phi2 (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) (neg.f64 phi2)) phi2))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (*.f64 phi2 phi2)) (-.f64 lambda1 lambda2)) lambda1) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(-.f64 (fma.f64 (.f64 phi2 phi2) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 phi2 phi2) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (-.f64 lambda1 lambda2)))) lambda1) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
(-.f64 (fma.f64 (.f64 phi2 phi2) (fma.f64 (.f64 phi2 phi2) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 phi2 phi2) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/1440 binary64) (.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (-.f64 lambda1 lambda2)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (-.f64 lambda1 lambda2))) lambda1) lambda2)
phi2
(* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) phi2)
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))))) phi2)
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi2 #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(.f64 (neg.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) #s(literal 1 binary64)))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(neg.f64 (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))))) phi2))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))
(neg.f64 (fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi2 #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))) phi2))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (hypot.f64 phi2 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (hypot.f64 phi2 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (hypot.f64 phi2 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (cos (* 1/2 phi2)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))
(.f64 lambda1 (+.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))))
(.f64 lambda1 (+.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 phi2 phi2) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (.f64 phi2 phi2) (.f64 (.f64 lambda1 lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))
(* -1 (* lambda1 (cos (* 1/2 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))))
(.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (fma.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda1))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 phi2 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (.f64 phi2 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (hypot.f64 phi2 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (hypot.f64 phi2 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(fma.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)) #s(literal 3 binary64))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (hypot.f64 phi2 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (cos (* 1/2 phi2)))
(.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))
(.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))
(.f64 lambda2 (+.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 phi2 phi2) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (.f64 phi2 phi2) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)) lambda2))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(.f64 lambda2 (neg.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (fma.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 phi2 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (.f64 phi2 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* lambda1 (cos (* 1/2 phi2)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (cos (* 1/2 phi2)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* lambda1 (cos (* 1/2 phi2)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2)
(-.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi2 phi2)) (-.f64 lambda1 lambda2) lambda1) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2)
(-.f64 (fma.f64 (.f64 phi2 phi2) (fma.f64 #s(literal 1/384 binary64) (.f64 (-.f64 lambda1 lambda2) (.f64 phi2 phi2)) (.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64))) lambda1) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(-.f64 (fma.f64 (.f64 phi2 phi2) (fma.f64 (.f64 phi2 phi2) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/46080 binary64)) (-.f64 lambda1 lambda2) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/384 binary64))) (.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64))) lambda1) lambda2)
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(/ (* (pow R 2) (pow phi1 2)) (pow phi2 2))
(/.f64 (.f64 (.f64 phi1 phi1) (.f64 R R)) (.f64 phi2 phi2))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi2 2)))
(fma.f64 #s(literal -1/8 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64))
(+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8)))
(fma.f64 (.f64 phi2 phi2) (fma.f64 (.f64 phi2 phi2) #s(literal 1/384 binary64) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8)))
(fma.f64 (.f64 phi2 phi2) (fma.f64 (.f64 phi2 phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/46080 binary64) #s(literal 1/384 binary64)) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))

rewrite317.0ms (2.6%)

Memory

36.2MiB live, 463.3MiB allocated

Rules

5 078×	`lower-*.f32`
5 052×	`lower-*.f64`
4 038×	`lower-/.f32`
4 032×	`lower-/.f64`
3 192×	`lower-fma.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	53	488
0	86	390
1	281	380
2	2020	380
0	8546	340

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Counts

22 → 306

Calls

Call 1

Inputs
(hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))
#s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))
(neg.f64 phi1)
(/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R))
(-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (*.f64 phi2 phi2)))
(.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R lambda2)
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))

Outputs
(exp.f64 (.f64 (log.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) #s(literal 1/2 binary64)))
(hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))
(hypot.f64 phi1 (exp.f64 (log.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) phi1)
(hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (exp.f64 (log.f64 phi1)))
(hypot.f64 (exp.f64 (log.f64 phi1)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))
(hypot.f64 (exp.f64 (log.f64 phi1)) (exp.f64 (log.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(hypot.f64 (exp.f64 (log.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) phi1)
(hypot.f64 (exp.f64 (log.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (exp.f64 (log.f64 phi1)))
(sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (fma.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)) (.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (.f64 phi1 phi1)))) (fma.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (*.f64 phi1 phi1))))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))))
(/.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)))))) (sqrt.f64 (fma.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)) (.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))))
(/.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)))))) (sqrt.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))) (.f64 (.f64 (.f64 phi1 phi1) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))
(/.f64 (sqrt.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))
(/.f64 (sqrt.f64 (neg.f64 (fma.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))))))) (sqrt.f64 (neg.f64 (fma.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)) (.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))))
(/.f64 (sqrt.f64 (neg.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))
(/.f64 (sqrt.f64 (-.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))))) (sqrt.f64 (-.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1))))))) (neg.f64 (sqrt.f64 (fma.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)) (.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))) (neg.f64 (sqrt.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))
(pow.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) #s(literal 1/2 binary64))
(.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)) (.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi1 (.f64 phi1 (.f64 phi1 phi1)) (.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (*.f64 phi1 phi1)))))))
(.f64 (sqrt.f64 (.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))
(.f64 (pow.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)) #s(literal 1/4 binary64)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))
(exp.f64 (.f64 (log.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
#s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))
(pow.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))
(+.f64 #s(literal 0 binary64) (neg.f64 phi1))
(-.f64 #s(literal 0 binary64) phi1)
(neg.f64 phi1)
(/.f64 (-.f64 #s(literal 0 binary64) (.f64 phi1 (.f64 phi1 phi1))) (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) (+.f64 #s(literal 0 binary64) phi1))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (.f64 phi1 (.f64 phi1 phi1)))) (neg.f64 (+.f64 #s(literal 0 binary64) (fma.f64 phi1 phi1 (*.f64 #s(literal 0 binary64) phi1)))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))) (neg.f64 (+.f64 #s(literal 0 binary64) phi1)))
(*.f64 phi1 #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) phi1)
(exp.f64 (.f64 (log.f64 (/.f64 (fma.f64 phi1 (/.f64 R phi2) R) (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2))) (neg.f64 phi2)))) #s(literal -1 binary64)))
(neg.f64 (.f64 (.f64 phi2 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2)))) (/.f64 #s(literal 1 binary64) (fma.f64 phi1 (/.f64 R phi2) R))))
(neg.f64 (/.f64 (.f64 phi2 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)))) (fma.f64 phi1 (/.f64 R phi2) R)))
(/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R))
(/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2)) (neg.f64 (neg.f64 (fma.f64 phi1 (/.f64 R phi2) R))))
(/.f64 (.f64 phi2 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)))) (neg.f64 (fma.f64 phi1 (/.f64 R phi2) R)))
(/.f64 (.f64 phi2 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)))) (neg.f64 (neg.f64 (neg.f64 (fma.f64 phi1 (/.f64 R phi2) R)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi1 (/.f64 R phi2) R) (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (fma.f64 phi1 (/.f64 R phi2) R) (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 (fma.f64 phi1 (/.f64 R phi2) R) (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi1 (/.f64 R phi2) R) (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 (fma.f64 phi1 (/.f64 R phi2) R) (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2))) #s(literal 1 binary64))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (neg.f64 phi2)) (.f64 (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R)))) (fma.f64 phi1 (/.f64 R phi2) R)))
(/.f64 (.f64 (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) (neg.f64 phi2)) (.f64 (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (*.f64 R R)) (fma.f64 phi1 (/.f64 R phi2) R)))
(/.f64 (.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2))) (neg.f64 phi2)) #s(literal 1 binary64)) (fma.f64 phi1 (/.f64 R phi2) R))
(/.f64 (.f64 (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (neg.f64 (/.f64 phi2 (fma.f64 phi1 (/.f64 R phi2) R)))) (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (*.f64 R R)))))
(/.f64 (.f64 (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) (neg.f64 (/.f64 phi2 (fma.f64 phi1 (/.f64 R phi2) R)))) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)))
(/.f64 (neg.f64 (.f64 (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (neg.f64 phi2))) (neg.f64 (.f64 (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R)))) (fma.f64 phi1 (/.f64 R phi2) R))))
(/.f64 (neg.f64 (.f64 (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) (neg.f64 phi2))) (neg.f64 (.f64 (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (*.f64 R R)) (fma.f64 phi1 (/.f64 R phi2) R))))
(/.f64 (neg.f64 (.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2))) (neg.f64 phi2)) #s(literal 1 binary64))) (neg.f64 (fma.f64 phi1 (/.f64 R phi2) R)))
(/.f64 (neg.f64 (.f64 (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (neg.f64 (/.f64 phi2 (fma.f64 phi1 (/.f64 R phi2) R))))) (neg.f64 (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (*.f64 R R))))))
(/.f64 (neg.f64 (.f64 (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) (neg.f64 (/.f64 phi2 (fma.f64 phi1 (/.f64 R phi2) R))))) (neg.f64 (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R))))
(pow.f64 (/.f64 (fma.f64 phi1 (/.f64 R phi2) R) (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (fma.f64 phi1 (/.f64 R phi2) R) (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2))) #s(literal 1 binary64)) #s(literal -1 binary64))
(.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 (/.f64 phi2 (fma.f64 phi1 (/.f64 R phi2) R))))
(.f64 (neg.f64 phi2) (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (fma.f64 phi1 (/.f64 R phi2) R))))
(.f64 (neg.f64 phi2) (/.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2))) (neg.f64 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 (.f64 phi2 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2)))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 phi1 (/.f64 R phi2) R))))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi1 (/.f64 R phi2) R)) (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2))) (neg.f64 phi2)))
(.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi1 (/.f64 R phi2) R)) (pow.f64 (/.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2))))) #s(literal -1 binary64)))
(.f64 (neg.f64 (/.f64 phi2 (fma.f64 phi1 (/.f64 R phi2) R))) (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))))
(.f64 (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 (.f64 phi1 (.f64 phi1 phi1)) (/.f64 (.f64 R (.f64 R R)) (.f64 phi2 (.f64 phi2 phi2))) (.f64 R (.f64 R R)))) (fma.f64 R (-.f64 R (/.f64 (.f64 phi1 R) phi2)) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))))
(.f64 (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2)) (-.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (.f64 R R))) (-.f64 (/.f64 (*.f64 phi1 R) phi2) R))
(+.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 (neg.f64 phi2))))
(+.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 (neg.f64 phi2))) (*.f64 R R))
(-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2)))
(-.f64 (/.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R))))) (/.f64 (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (*.f64 R R))))))
(-.f64 (/.f64 (.f64 R (.f64 R (.f64 R R))) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R))) (/.f64 (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (*.f64 R R))))
(fma.f64 R R (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 (neg.f64 phi2))))
(fma.f64 (.f64 phi1 R) (neg.f64 (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R))
(fma.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (neg.f64 (/.f64 #s(literal 1 binary64) (.f64 phi2 phi2))) (*.f64 R R))
(fma.f64 (/.f64 (.f64 phi1 R) phi2) (neg.f64 (/.f64 (.f64 phi1 R) phi2)) (*.f64 R R))
(fma.f64 (neg.f64 (.f64 phi1 (.f64 R (.f64 phi1 R)))) (/.f64 #s(literal 1 binary64) (.f64 phi2 phi2)) (*.f64 R R))
(fma.f64 #s(literal -1 binary64) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (*.f64 R R))
(fma.f64 (neg.f64 (.f64 phi1 R)) (.f64 phi1 (/.f64 R (.f64 phi2 phi2))) (.f64 R R))
(fma.f64 (neg.f64 (/.f64 (.f64 phi1 R) phi2)) (/.f64 (.f64 phi1 R) phi2) (*.f64 R R))
(fma.f64 (exp.f64 (log.f64 R)) (exp.f64 (log.f64 R)) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 (neg.f64 phi2))))
(/.f64 (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R)))))
(/.f64 (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (fma.f64 R (.f64 R (.f64 R R)) (-.f64 (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))) (.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 (neg.f64 phi2)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R)))) (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (*.f64 phi2 phi2)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R)))) (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (*.f64 phi2 phi2))))))))
(/.f64 (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (*.f64 R R)))
(/.f64 (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 (neg.f64 phi2)))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))))) (neg.f64 (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R))))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))))) (neg.f64 (fma.f64 R (.f64 R (.f64 R R)) (-.f64 (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))) (.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 (neg.f64 phi2))))))))
(/.f64 (neg.f64 (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (neg.f64 (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (*.f64 R R))))
(/.f64 (neg.f64 (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (neg.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 (neg.f64 phi2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R))))) (.f64 (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))))) (.f64 (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R)))) (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R))))))
(/.f64 (-.f64 (.f64 (.f64 R (.f64 R (.f64 R R))) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R))) (.f64 (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (.f64 (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))))) (neg.f64 (neg.f64 (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))))) (neg.f64 (neg.f64 (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (*.f64 R R)))))
(pow.f64 (/.f64 (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (.f64 R R)))) (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (*.f64 phi2 phi2)))))) #s(literal -1 binary64))
(.f64 (fma.f64 phi1 (/.f64 R phi2) R) (-.f64 R (/.f64 (.f64 phi1 R) phi2)))
(.f64 (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (*.f64 R R))))))
(.f64 (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) (/.f64 #s(literal 1 binary64) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R))))
(+.f64 (.f64 (neg.f64 phi2) (.f64 R R)) (.f64 (neg.f64 phi2) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 (neg.f64 phi2)))))
(+.f64 (.f64 (.f64 R R) (neg.f64 phi2)) (.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 (neg.f64 phi2))) (neg.f64 phi2)))
(-.f64 #s(literal 0 binary64) (.f64 phi2 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)))))
(fma.f64 (.f64 R R) (neg.f64 phi2) (.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 (neg.f64 phi2))) (neg.f64 phi2)))
(fma.f64 (neg.f64 phi2) (.f64 R R) (.f64 (neg.f64 phi2) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 (neg.f64 phi2)))))
(neg.f64 (.f64 phi2 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (neg.f64 phi2)) (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (*.f64 R R)))))
(/.f64 (.f64 (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) (neg.f64 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)))
(/.f64 (.f64 (neg.f64 phi2) (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))))) (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (*.f64 R R)))))
(/.f64 (.f64 (neg.f64 phi2) (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)))
(/.f64 (neg.f64 (.f64 (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (neg.f64 phi2))) (neg.f64 (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (*.f64 R R))))))
(/.f64 (neg.f64 (.f64 (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) (neg.f64 phi2))) (neg.f64 (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R))))
(/.f64 (neg.f64 (.f64 (neg.f64 phi2) (-.f64 (.f64 (.f64 R R) (.f64 R (.f64 R (.f64 R R)))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R))))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))))) (neg.f64 (fma.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)) (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R)) (.f64 R (.f64 R (*.f64 R R))))))
(/.f64 (neg.f64 (.f64 (neg.f64 phi2) (-.f64 (.f64 R (.f64 R (.f64 R R))) (/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))))) (neg.f64 (fma.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))) (.f64 R R))))
(.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2))
(.f64 (neg.f64 phi2) (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))))
(.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2)))))
(.f64 (neg.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2)))) phi2)
(.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2))) #s(literal -1 binary64)) phi2)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 R)))
(.f64 lambda2 (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 R (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 lambda2 R))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(.f64 (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) R)
(.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) lambda2)
(*.f64 lambda2 R)
(*.f64 R lambda2)
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal -2 binary64)))
(-.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))
(exp.f64 (.f64 (log.f64 (fma.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) #s(literal 1/2 binary64)))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(hypot.f64 phi2 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(hypot.f64 (neg.f64 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(hypot.f64 (neg.f64 phi2) (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(hypot.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) phi2)
(hypot.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 phi2))
(hypot.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (exp.f64 (log.f64 phi2)))
(hypot.f64 (exp.f64 (log.f64 phi2)) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(hypot.f64 (exp.f64 (log.f64 phi2)) (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(hypot.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) phi2)
(hypot.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 phi2))
(hypot.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (exp.f64 (log.f64 phi2)))
(sqrt.f64 (fma.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (fma.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (-.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (.f64 phi2 phi2)))) (fma.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 6 binary64))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (-.f64 (.f64 phi2 phi2) (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (fma.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (-.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (.f64 phi2 phi2))))))
(/.f64 (sqrt.f64 (fma.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 6 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 4 binary64)) (-.f64 (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (.f64 (.f64 phi2 phi2) (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))))))))
(/.f64 (sqrt.f64 (-.f64 (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (.f64 phi2 phi2) (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))))))
(/.f64 (sqrt.f64 (neg.f64 (fma.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 6 binary64))))) (sqrt.f64 (neg.f64 (fma.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (-.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (.f64 phi2 phi2)))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 4 binary64))))) (sqrt.f64 (neg.f64 (-.f64 (.f64 phi2 phi2) (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 4 binary64)) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) (sqrt.f64 (-.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))
(/.f64 (neg.f64 (sqrt.f64 (fma.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 6 binary64))))) (neg.f64 (sqrt.f64 (fma.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (-.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (.f64 phi2 phi2)))))))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 4 binary64))))) (neg.f64 (sqrt.f64 (-.f64 (.f64 phi2 phi2) (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)))))))
(pow.f64 (fma.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (fma.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (.f64 (fma.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) (fma.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log.f64 (fma.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64))
(.f64 (sqrt.f64 (fma.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 6 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (-.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (fma.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (-.f64 (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))) (*.f64 phi2 phi2)))))))
(.f64 (sqrt.f64 (-.f64 (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 4 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (.f64 phi2 phi2) (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (-.f64 (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (.f64 phi2 phi2) (.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)))))))
(.f64 (pow.f64 (fma.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (-.f64 lambda1 lambda2) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) #s(literal 1/4 binary64)))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(+.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (neg.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(exp.f64 (.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 1 binary64)))
(fma.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (neg.f64 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (+.f64 lambda1 lambda2))
(/.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (+.f64 lambda1 lambda2))
(/.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 (+.f64 lambda1 lambda2)))
(pow.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1 binary64))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))
(.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1 binary64)) (pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
(exp.f64 (.f64 (log.f64 (/.f64 (.f64 phi1 R) phi2)) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (/.f64 (.f64 phi2 phi2) (.f64 phi1 (.f64 R (*.f64 phi1 R))))) #s(literal -1 binary64)))
(exp.f64 (-.f64 (.f64 (log.f64 (.f64 phi1 R)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (log.f64 phi2))))
(neg.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 (neg.f64 phi2))))
(/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (.f64 phi2 phi2))
(/.f64 (neg.f64 (.f64 phi1 (.f64 R (.f64 phi1 R)))) (.f64 phi2 (neg.f64 phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 phi2 phi2) (.f64 phi1 (.f64 R (.f64 phi1 R)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 phi2 phi2) (.f64 phi1 (.f64 R (.f64 phi1 R)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 phi2 (/.f64 (.f64 phi1 (.f64 R (*.f64 phi1 R))) phi2)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 (.f64 phi2 phi2) (.f64 phi1 (.f64 R (.f64 phi1 R)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (.f64 phi2 phi2) (.f64 phi1 (.f64 R (.f64 phi1 R))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 (.f64 phi2 phi2) (.f64 phi1 (.f64 R (.f64 phi1 R)))) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 phi2 (/.f64 (.f64 phi1 (.f64 R (*.f64 phi1 R))) phi2))))
(/.f64 (/.f64 (.f64 phi1 (.f64 R (*.f64 phi1 R))) phi2) phi2)
(/.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) #s(literal 1 binary64)) (*.f64 phi2 phi2))
(/.f64 (neg.f64 (neg.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))))) (neg.f64 (.f64 phi2 (neg.f64 phi2))))
(/.f64 (neg.f64 (/.f64 (.f64 phi1 (.f64 R (*.f64 phi1 R))) phi2)) (neg.f64 phi2))
(/.f64 (.f64 (/.f64 (.f64 phi1 R) phi2) (*.f64 phi1 R)) phi2)
(/.f64 (neg.f64 (.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) #s(literal 1 binary64))) (*.f64 phi2 (neg.f64 phi2)))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (.f64 phi1 (.f64 R (.f64 phi1 R)))))) (neg.f64 (neg.f64 (.f64 phi2 (neg.f64 phi2)))))
(/.f64 (neg.f64 (neg.f64 (/.f64 (.f64 phi1 (.f64 R (*.f64 phi1 R))) phi2))) (neg.f64 (neg.f64 phi2)))
(/.f64 (neg.f64 (.f64 (/.f64 (.f64 phi1 R) phi2) (*.f64 phi1 R))) (neg.f64 phi2))
(pow.f64 (/.f64 (*.f64 phi1 R) phi2) #s(literal 2 binary64))
(pow.f64 (/.f64 (.f64 phi2 phi2) (.f64 phi1 (.f64 R (.f64 phi1 R)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (.f64 phi2 phi2) (.f64 phi1 (.f64 R (.f64 phi1 R)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 phi2 (/.f64 (.f64 phi1 (.f64 R (*.f64 phi1 R))) phi2)) #s(literal -1 binary64))
(.f64 phi1 (.f64 R (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))))
(.f64 phi1 (.f64 (/.f64 R phi2) (/.f64 (*.f64 phi1 R) phi2)))
(.f64 R (.f64 phi1 (.f64 phi1 (/.f64 R (.f64 phi2 phi2)))))
(.f64 R (.f64 (.f64 phi1 (.f64 phi1 R)) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))))
(.f64 R (/.f64 (.f64 phi1 (.f64 phi1 R)) (.f64 phi2 phi2)))
(.f64 (.f64 R R) (.f64 (.f64 phi1 phi1) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))))
(.f64 (.f64 R R) (/.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)))
(.f64 (.f64 R R) (pow.f64 (/.f64 phi1 phi2) #s(literal 2 binary64)))
(.f64 (.f64 R R) (pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) phi2) phi1) #s(literal 2 binary64)))
(.f64 (.f64 phi1 R) (.f64 phi1 (/.f64 R (.f64 phi2 phi2))))
(.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2)))
(.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (pow.f64 (/.f64 #s(literal 1 binary64) phi2) #s(literal 2 binary64)))
(.f64 (/.f64 R phi2) (/.f64 (.f64 phi1 (*.f64 phi1 R)) phi2))
(.f64 (/.f64 R phi2) (.f64 phi1 (/.f64 (*.f64 phi1 R) phi2)))
(.f64 (/.f64 R phi2) (pow.f64 (/.f64 phi2 (.f64 phi1 (*.f64 phi1 R))) #s(literal -1 binary64)))
(.f64 (.f64 phi1 phi1) (*.f64 (/.f64 R phi2) (/.f64 R phi2)))
(.f64 (/.f64 (.f64 phi1 R) phi2) (/.f64 (*.f64 phi1 R) phi2))
(.f64 (neg.f64 (.f64 phi1 (.f64 R (.f64 phi1 R)))) (/.f64 #s(literal 1 binary64) (*.f64 phi2 (neg.f64 phi2))))
(.f64 (/.f64 (.f64 R (*.f64 phi1 R)) phi2) (/.f64 phi1 phi2))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) (*.f64 phi2 phi2)))
(.f64 (/.f64 #s(literal 1 binary64) (.f64 phi2 phi2)) (.f64 phi1 (.f64 R (*.f64 phi1 R))))
(.f64 (/.f64 #s(literal 1 binary64) (.f64 phi2 phi2)) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 R (*.f64 phi1 R)))) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) phi2) (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) phi2))
(.f64 (.f64 R (.f64 phi1 R)) (.f64 phi1 (/.f64 #s(literal 1 binary64) (*.f64 phi2 phi2))))
(.f64 (.f64 R (.f64 phi1 R)) (/.f64 phi1 (.f64 phi2 phi2)))
(.f64 (/.f64 (.f64 phi1 (.f64 R (.f64 phi1 R))) phi2) (/.f64 #s(literal 1 binary64) phi2))
(.f64 (.f64 phi1 (/.f64 R (.f64 phi2 phi2))) (.f64 phi1 R))
(.f64 (/.f64 (.f64 R R) phi2) (/.f64 (*.f64 phi1 phi1) phi2))
(.f64 (.f64 (/.f64 R phi2) (/.f64 R phi2)) (*.f64 phi1 phi1))
(.f64 (.f64 (/.f64 (*.f64 phi1 R) phi2) phi1) (/.f64 R phi2))
(.f64 (.f64 (/.f64 (*.f64 phi1 R) phi2) (/.f64 R phi2)) phi1)
(.f64 (pow.f64 (/.f64 phi2 (.f64 R R)) #s(literal -1 binary64)) (pow.f64 (/.f64 phi2 (*.f64 phi1 phi1)) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 phi2 (.f64 R (*.f64 phi1 R))) #s(literal -1 binary64)) (pow.f64 (/.f64 phi2 phi1) #s(literal -1 binary64)))
(+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi2))
(+.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 phi1 #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2))) #s(literal -1 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) phi2))
(fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(fma.f64 phi2 #s(literal 1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(neg.f64 (/.f64 (+.f64 phi1 phi2) #s(literal -2 binary64)))
(/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 phi1 phi2)) #s(literal -2 binary64))
(/.f64 (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2))) (.f64 #s(literal 2 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)) #s(literal 1 binary64))))
(/.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(/.f64 (neg.f64 (neg.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) (neg.f64 (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(/.f64 (neg.f64 (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2)))) (neg.f64 (.f64 #s(literal 2 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(/.f64 (fma.f64 (.f64 phi1 (.f64 phi1 phi1)) #s(literal 1/8 binary64) (.f64 (.f64 phi2 (.f64 phi2 phi2)) #s(literal 1/8 binary64))) (fma.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(/.f64 (-.f64 (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi2)))
(/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2)))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) (-.f64 phi1 phi2))
(/.f64 (.f64 (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2))) #s(literal 1/2 binary64)) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 phi1 phi2))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (+.f64 phi1 phi2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (fma.f64 (.f64 phi1 (.f64 phi1 phi1)) #s(literal 1/8 binary64) (.f64 (.f64 phi2 (.f64 phi2 phi2)) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) phi2))))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi2))))
(/.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2))))) (neg.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)))) (neg.f64 (-.f64 phi1 phi2)))
(/.f64 (neg.f64 (.f64 (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2))) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (.f64 (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)) #s(literal -1 binary64)))
(*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))
(*.f64 (neg.f64 (+.f64 phi1 phi2)) #s(literal -1/2 binary64))
(.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))

eval523.0ms (4.3%)

Memory: -8.8MiB live, 332.1MiB allocated
Compiler: Compiled 43 708 to 2 301 computations (94.7% saved)

prune198.0ms (1.6%)

Memory

32.5MiB live, 292.2MiB allocated

Pruning

37 alts after pruning (32 fresh and 5 done)

	Pruned	Kept	Total
New	1 161	13	1 174
Fresh	6	19	25
Picked	3	2	5
Done	0	3	3
Total	1 170	37	1 207

Accuracy

98.7%

Counts

1 207 → 37

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.9%	(.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R)
	45.7%	(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)
	56.9%	(.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
▶	21.9%	(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
	17.6%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) phi2)))
▶	61.6%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
	50.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))
✓	71.9%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
✓	66.3%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
	10.6%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (sqrt.f64 (neg.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))))
	11.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 lambda2))))
	10.0%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda2))))
	7.8%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
	8.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
	12.4%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))))
✓	35.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
▶	10.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))))
	6.6%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))))
	21.2%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
	6.3%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
	58.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
	20.8%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
	21.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
	7.4%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
	34.2%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1)))
	21.9%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (-.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
▶	20.7%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
	21.5%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
▶	9.7%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
	11.0%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
✓	2.1%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
	58.6%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
	10.0%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 #s(approx (- ( (cos (* 1/2 (+ phi1 phi2))) R) (/ (* (* R lambda1) (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2))) (neg.f64 lambda2)))
	57.7%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
	60.4%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
✓	32.9%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
	60.4%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))

Compiler

Compiled 1 393 to 825 computations (40.8% saved)

simplify335.0ms (2.8%)

Memory

15.2MiB live, 408.4MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	#s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))
cost-diff	0	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))))
cost-diff	0	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))))
cost-diff	320	(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
cost-diff	0	(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
cost-diff	0	(*.f64 R lambda1)
cost-diff	0	(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
cost-diff	0	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
cost-diff	0	(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))
cost-diff	0	(*.f64 R lambda2)
cost-diff	0	(.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))))
cost-diff	0	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
cost-diff	0	(*.f64 phi2 phi2)
cost-diff	0	#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))
cost-diff	0	(sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))
cost-diff	0	(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
cost-diff	0	#s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))
cost-diff	0	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))
cost-diff	0	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
cost-diff	4928	(hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))

Rules

13 946×	`lower-fma.f32`
13 944×	`lower-fma.f64`
2 716×	`lower-*.f32`
2 688×	`lower-*.f64`
2 118×	`lower-+.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	57	596
0	84	596
1	134	596
2	238	588
3	557	588
4	1621	588
5	3860	588
6	6690	588
0	8122	489

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Calls

Call 1

Inputs
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))
(hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))
phi2
#s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
R
(sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))
(*.f64 phi2 phi2)
phi2
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))))
(*.f64 R lambda2)
R
lambda2
(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))
(*.f64 #s(literal 1/2 binary64) phi2)
#s(literal 1/2 binary64)
phi2
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R lambda1)
R
lambda1
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))))
#s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
#s(literal 1/2 binary64)
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 lambda2 phi2)
lambda2
phi2
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
phi1
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(neg.f64 lambda2)

Outputs
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))
(hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))
(sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))
phi2
#s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
R
(sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))
(*.f64 phi2 phi2)
phi2
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))))
(.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 R lambda2)
R
lambda2
(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))
(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) phi2)
(*.f64 phi2 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
phi2
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))
(*.f64 R lambda1)
R
lambda1
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(+.f64 phi1 phi2)
phi1
phi2
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (.f64 (neg.f64 lambda2) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))))
R
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (.f64 (neg.f64 lambda2) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))
#s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))
#s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (.f64 (neg.f64 lambda2) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(.f64 (neg.f64 lambda2) (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
#s(literal 1/2 binary64)
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(*.f64 lambda2 phi2)
lambda2
phi2
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
phi1
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 lambda2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(neg.f64 lambda2)

localize270.0ms (2.2%)

Memory

6.0MiB live, 481.1MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.06640625	(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
accuracy	2.525062985182127	(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
accuracy	27.456470437424436	#s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))
accuracy	59.358558820574885	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))))
accuracy	0	(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
accuracy	0.19921875	(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
accuracy	13.737482053809643	(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
accuracy	57.9633217826145	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
accuracy	0.1953125	(.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))))
accuracy	13.737482053809643	(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))
accuracy	33.44850444425473	#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))
accuracy	49.994958966712005	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
accuracy	0	(*.f64 phi2 phi2)
accuracy	0.03125	(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
accuracy	41.42763377733301	(sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))
accuracy	41.80689413666256	#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))
accuracy	0	(-.f64 lambda1 lambda2)
accuracy	0.03125	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
accuracy	25.70812702275623	#s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))
accuracy	25.915291788984046	#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))

Samples

162.0ms	187×	1	valid
21.0ms	69×	0	valid

Compiler

Compiled 449 to 41 computations (90.9% saved)

Precisions

Click to see histograms. Total time spent on operations: 148.0ms

ival-mult: 39.0ms (26.4% of total)

ival-cos: 33.0ms (22.3% of total)

ival-sub: 27.0ms (18.3% of total)

adjust: 19.0ms (12.9% of total)

ival-hypot: 11.0ms (7.4% of total)

ival-sin: 8.0ms (5.4% of total)

ival-add: 6.0ms (4.1% of total)

ival-div: 3.0ms (2% of total)

ival-neg: 1.0ms (0.7% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

series64.0ms (0.5%)

Memory

-10.9MiB live, 118.3MiB allocated

Counts

25 → 972

Calls

Call 1

Inputs
#<alt (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))>
#<alt (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))>
#<alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))>
#<alt #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))>
#<alt (.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))>
#<alt (sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))>
#<alt #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))>
#<alt (*.f64 phi2 phi2)>
#<alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))>
#<alt (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))))>
#<alt (*.f64 R lambda2)>
#<alt (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))>
#<alt #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))>
#<alt (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))>
#<alt (*.f64 R lambda1)>
#<alt (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))>
#<alt (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))>
#<alt (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))))>
#<alt #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))))>
#<alt #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))>
#<alt (-.f64 lambda1 lambda2)>
#<alt #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))>
#<alt (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))>
#<alt (.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))>
#<alt (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))>

Outputs
#<alt (- lambda1 lambda2)>
#<alt (- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)>
#<alt phi2>
#<alt (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 phi2)))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 phi2))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 phi2)))>
#<alt (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi2))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))>
#<alt (* lambda1 (cos (* 1/2 phi2)))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 phi2)))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))>
#<alt (* lambda1 (cos (* 1/2 phi2)))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi2))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi2))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))>
#<alt (- lambda1 lambda2)>
#<alt (- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2)>
#<alt (- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* (cos (* 1/2 phi2)) (- lambda1 lambda2))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))>
#<alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))>
#<alt (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))>
#<alt (+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))>
#<alt (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))>
#<alt (* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))>
#<alt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))>
#<alt (+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (pow phi1 2)>
#<alt (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))>
#<alt (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))>
#<alt (pow phi1 2)>
#<alt (* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))>
#<alt (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))>
#<alt (* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))>
#<alt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))>
#<alt (+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (pow phi2 2)>
#<alt (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))>
#<alt (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))>
#<alt (pow phi2 2)>
#<alt (* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))>
#<alt (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))>
#<alt (* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))>
#<alt (pow phi2 2)>
#<alt (pow phi2 2)>
#<alt (pow phi2 2)>
#<alt (pow phi2 2)>
#<alt (pow phi2 2)>
#<alt (pow phi2 2)>
#<alt (pow phi2 2)>
#<alt (pow phi2 2)>
#<alt (pow phi2 2)>
#<alt (pow phi2 2)>
#<alt (pow phi2 2)>
#<alt (pow phi2 2)>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi2))))>
#<alt (+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))>
#<alt (+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))>
#<alt (+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda2 (cos (* 1/2 phi1))))>
#<alt (+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))>
#<alt (+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (* R lambda2)>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 phi2))))>
#<alt (+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2)))))>
#<alt (+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2)))))))))>
#<alt (+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* R (* lambda1 (cos (* 1/2 phi1))))>
#<alt (+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1)))))>
#<alt (+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1)))))))))>
#<alt (+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (* R lambda1)>
#<alt (cos (* 1/2 phi2))>
#<alt (+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 (- phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (- phi1 (* -1 phi2))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* phi2 (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda2 (sin (* 1/2 phi1))))))>
#<alt (* phi2 (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda2 (sin (* 1/2 phi1))))))>
#<alt (* phi2 (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda2 (sin (* 1/2 phi1))))))>
#<alt (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (* -1 (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (/ (* lambda2 (cos (* 1/2 phi1))) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (/ (* lambda2 (cos (* 1/2 phi1))) phi2))))>
#<alt (* -1 (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (/ (* lambda2 (cos (* 1/2 phi1))) phi2))))>
#<alt (* -1 lambda2)>
#<alt (+ (* -1 lambda2) (* 1/4 (* lambda2 (* phi1 phi2))))>
#<alt (+ (* -1 lambda2) (* phi1 (+ (* 1/8 (* lambda2 phi1)) (* 1/4 (* lambda2 phi2)))))>
#<alt (+ (* -1 lambda2) (* phi1 (+ (* 1/4 (* lambda2 phi2)) (* phi1 (+ (* -1/96 (* lambda2 (* phi1 phi2))) (* 1/8 lambda2))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))>
#<alt (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))>
#<alt (+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))>
#<alt (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))>
#<alt (* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))>
#<alt (+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt (* R phi1)>
#<alt (* phi1 (+ R (* -1 (/ (* R phi2) phi1))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))>
#<alt (* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))>
#<alt (* -1 (* R phi1))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))>
#<alt (* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))>
#<alt (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))>
#<alt (+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt (* R phi2)>
#<alt (* phi2 (+ R (* -1 (/ (* R phi1) phi2))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))>
#<alt (* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))>
#<alt (* -1 (* R phi2))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))>
#<alt (* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))>
#<alt (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda1 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))>
#<alt (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))>
#<alt (+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))>
#<alt (* lambda2 (cos (* 1/2 (+ phi1 phi2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))>
#<alt (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))>
#<alt phi1>
#<alt (* phi1 (+ 1 (* -1 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))>
#<alt (* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (* -1 phi1)>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))>
#<alt (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))>
#<alt (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))>
#<alt (+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))>
#<alt phi2>
#<alt (* phi2 (+ 1 (* -1 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))>
#<alt (* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))>
#<alt (* -1 phi2)>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))>
#<alt (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi2))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* 1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda2 (sin (* 1/2 phi2)))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda2 (cos (* 1/2 phi2)))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda2 (sin (* 1/2 phi1)))))))>
#<alt (+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda2 (cos (* 1/2 phi1)))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))>
#<alt (* -1 lambda2)>
#<alt (- lambda1 lambda2)>
#<alt (- lambda1 lambda2)>
#<alt (- lambda1 lambda2)>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))>
#<alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))>
#<alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))>
#<alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))>
#<alt lambda1>
#<alt (+ lambda1 (* -1 lambda2))>
#<alt (+ lambda1 (* -1 lambda2))>
#<alt (+ lambda1 (* -1 lambda2))>
#<alt (* -1 lambda2)>
#<alt (* lambda2 (- (/ lambda1 lambda2) 1))>
#<alt (* lambda2 (- (/ lambda1 lambda2) 1))>
#<alt (* lambda2 (- (/ lambda1 lambda2) 1))>
#<alt (* -1 lambda2)>
#<alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))>
#<alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))>
#<alt (* 1/2 phi2)>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (* 1/2 phi1)>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* 1/2 phi1)>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* 1/2 phi1)>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (* 1/2 phi2)>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* 1/2 phi2)>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* 1/2 phi2)>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (* 1/2 phi1)>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))>
#<alt (* 1/2 phi1)>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))>
#<alt (* 1/2 phi1)>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (+ (* 1/2 phi1) (* 1/2 phi2))>
#<alt (* 1/2 phi2)>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))>
#<alt (* 1/2 phi2)>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* 1/2 (* lambda2 (* phi1 phi2)))>
#<alt (* phi1 (+ (* -1/48 (* lambda2 (* (pow phi1 2) phi2))) (* 1/2 (* lambda2 phi2))))>
#<alt (* phi1 (+ (* 1/2 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/48 (* lambda2 phi2)) (* 1/3840 (* lambda2 (* (pow phi1 2) phi2)))))))>
#<alt (* phi1 (+ (* 1/2 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/48 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/645120 (* lambda2 (* (pow phi1 2) phi2))) (* 1/3840 (* lambda2 phi2))))))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* lambda2 (* phi2 (sin (* 1/2 phi1))))>
#<alt (* -1 lambda2)>
#<alt (+ (* -1 lambda2) (* 1/8 (* lambda2 (pow phi1 2))))>
#<alt (+ (* -1 lambda2) (* (pow phi1 2) (+ (* -1/384 (* lambda2 (pow phi1 2))) (* 1/8 lambda2))))>
#<alt (+ (* -1 lambda2) (* (pow phi1 2) (+ (* 1/8 lambda2) (* (pow phi1 2) (+ (* -1/384 lambda2) (* 1/46080 (* lambda2 (pow phi1 2))))))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>
#<alt (* -1 (* lambda2 (cos (* 1/2 phi1))))>

Calls

243 calls:

Time	Variable		Point	Expression
13.0ms	phi2	@	-inf	(* 1/2 (+ phi1 phi2))
2.0ms	lambda2	@	0	(+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2)))
2.0ms	R	@	-inf	(* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))))
1.0ms	phi1	@	-inf	(+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2)))
1.0ms	phi1	@	inf	(+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2)))

simplify453.0ms (3.8%)

Memory

9.6MiB live, 761.3MiB allocated

Algorithm

1×	egg-herbie

Rules

9 824×	`lower-fma.f64`
9 824×	`lower-fma.f32`
8 170×	`lower-*.f64`
8 170×	`lower-*.f32`
5 218×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1270	31707
1	4260	31093
0	8387	28793

Stop Event

1×	iter limit
1×	node limit

Counts

972 → 962

Calls

Call 1

Inputs
(- lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
phi2
(* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(* lambda1 (cos (* 1/2 phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))))
(* -1 (* lambda1 (cos (* 1/2 phi2))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(* lambda2 (cos (* 1/2 phi2)))
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(* lambda1 (cos (* 1/2 phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (cos (* 1/2 phi2)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(* lambda1 (cos (* 1/2 phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(- lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))
(+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))
(+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(pow phi2 2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(pow phi2 2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(pow phi2 2)
(pow phi2 2)
(pow phi2 2)
(pow phi2 2)
(pow phi2 2)
(pow phi2 2)
(pow phi2 2)
(pow phi2 2)
(pow phi2 2)
(pow phi2 2)
(pow phi2 2)
(pow phi2 2)
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(* R lambda2)
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 phi2))))
(+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2)))))
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2)))))))))
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1)))))))))
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(* R lambda1)
(cos (* 1/2 phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1)))))
(* phi2 (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda2 (sin (* 1/2 phi1))))))
(* phi2 (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda2 (sin (* 1/2 phi1))))))
(* phi2 (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda2 (sin (* 1/2 phi1))))))
(* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1)))))
(* -1 (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (/ (* lambda2 (cos (* 1/2 phi1))) phi2))))
(* -1 (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (/ (* lambda2 (cos (* 1/2 phi1))) phi2))))
(* -1 (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (/ (* lambda2 (cos (* 1/2 phi1))) phi2))))
(* -1 lambda2)
(+ (* -1 lambda2) (* 1/4 (* lambda2 (* phi1 phi2))))
(+ (* -1 lambda2) (* phi1 (+ (* 1/8 (* lambda2 phi1)) (* 1/4 (* lambda2 phi2)))))
(+ (* -1 lambda2) (* phi1 (+ (* 1/4 (* lambda2 phi2)) (* phi1 (+ (* -1/96 (* lambda2 (* phi1 phi2))) (* 1/8 lambda2))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(* R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(* -1 (* R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(* R phi2)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(* -1 (* R phi2))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(* -1 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* 1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda2 (sin (* 1/2 phi2)))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda2 (cos (* 1/2 phi2)))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda2 (sin (* 1/2 phi1)))))))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda2 (cos (* 1/2 phi1)))))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(* -1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
lambda1
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(* -1 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* -1 lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* 1/2 phi2)
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(* 1/2 phi1)
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* 1/2 phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* 1/2 phi1)
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(* 1/2 phi2)
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* 1/2 phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* 1/2 phi2)
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(* 1/2 phi1)
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(* 1/2 phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(* 1/2 phi1)
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(+ (* 1/2 phi1) (* 1/2 phi2))
(* 1/2 phi2)
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(* 1/2 phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* 1/2 (* lambda2 (* phi1 phi2)))
(* phi1 (+ (* -1/48 (* lambda2 (* (pow phi1 2) phi2))) (* 1/2 (* lambda2 phi2))))
(* phi1 (+ (* 1/2 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/48 (* lambda2 phi2)) (* 1/3840 (* lambda2 (* (pow phi1 2) phi2)))))))
(* phi1 (+ (* 1/2 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/48 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/645120 (* lambda2 (* (pow phi1 2) phi2))) (* 1/3840 (* lambda2 phi2))))))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(* -1 lambda2)
(+ (* -1 lambda2) (* 1/8 (* lambda2 (pow phi1 2))))
(+ (* -1 lambda2) (* (pow phi1 2) (+ (* -1/384 (* lambda2 (pow phi1 2))) (* 1/8 lambda2))))
(+ (* -1 lambda2) (* (pow phi1 2) (+ (* 1/8 lambda2) (* (pow phi1 2) (+ (* -1/384 lambda2) (* 1/46080 (* lambda2 (pow phi1 2))))))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(* -1 (* lambda2 (cos (* 1/2 phi1))))

Outputs
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* 1/2 (/ (* (pow phi2 2) (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))) lambda2)
(-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2)))))) lambda2)
(-.f64 (fma.f64 (.f64 phi2 phi2) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 phi2 phi2) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (-.f64 lambda1 lambda2)))) lambda1) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* 1/2 (/ (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- lambda1 lambda2))) (* (pow phi2 2) (+ (* 1/2 (/ (* (pow phi2 2) (- (* -1/1440 (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2))))) (pow (- lambda1 lambda2) 2))))) (- lambda1 lambda2))) (* 1/2 (/ (- (* 1/48 (pow (- lambda1 lambda2) 2)) (* 1/4 (/ (pow (+ 1 (* -1/4 (pow (- lambda1 lambda2) 2))) 2) (pow (- lambda1 lambda2) 2)))) (- lambda1 lambda2)))))))) lambda2)
(-.f64 (fma.f64 (.f64 phi2 phi2) (fma.f64 (.f64 phi2 phi2) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 phi2 phi2) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/1440 binary64) (.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))) (-.f64 lambda1 lambda2)) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1/48 binary64) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/4 binary64) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))))) (-.f64 lambda1 lambda2)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/4 binary64) (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (-.f64 lambda1 lambda2))) lambda1) lambda2)
phi2
(* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) phi2)
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))))) phi2)
(* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi2 #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) #s(literal 1 binary64)) (neg.f64 phi2))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(neg.f64 (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))))) phi2))
(* -1 (* phi2 (+ 1 (+ (* -1/8 (/ (* (pow (cos (* 1/2 phi2)) 4) (pow (- lambda1 lambda2) 4)) (pow phi2 4))) (+ (* 1/16 (/ (* (pow (cos (* 1/2 phi2)) 6) (pow (- lambda1 lambda2) 6)) (pow phi2 6))) (* 1/2 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))))
(neg.f64 (fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 4 binary64)) (pow.f64 phi2 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/16 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 6 binary64)) (/.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal 6 binary64)) (pow.f64 phi2 #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))) phi2))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi2 phi2)))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (hypot.f64 phi2 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(fma.f64 lambda1 (fma.f64 lambda2 (neg.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi2 phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi2 phi2)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (.f64 lambda2 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi2 phi2)))))))) (hypot.f64 phi2 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi2 phi2)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (.f64 lambda2 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi2 phi2)))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (.f64 lambda2 lambda2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi2 phi2)) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda2 lambda2) (.f64 phi2 phi2)))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (hypot.f64 phi2 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda1 (cos (* 1/2 phi2)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 lambda1 lambda1))))))
(* lambda1 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* (pow lambda1 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda1 2) (cos (* 1/2 phi2)))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 phi2 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 lambda1 (.f64 lambda1 lambda1)))) (/.f64 (.f64 phi2 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 lambda1 lambda1))))) (/.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1)))))
(.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda1 (cos (* 1/2 phi2))))) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow phi2 2)) (* lambda1 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda1)) (* lambda2 (cos (* 1/2 phi2)))) lambda1)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 phi2 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (.f64 phi2 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) lambda1)) lambda1)) (neg.f64 lambda1))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 phi2)) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi2 phi2)))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (hypot.f64 phi2 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))))))
(fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi2 phi2)))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi2 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi2 phi2)))) (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (hypot.f64 phi2 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 phi2)) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 phi2)) 2) (- (pow (cos (* 1/2 phi2)) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 phi2)) 2)) (pow phi2 2)) 3))))))))))
(fma.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi2 phi2)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi2 phi2)))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)) (.f64 lambda1 lambda1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi2 phi2)) #s(literal 3 binary64))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 lambda1 lambda1) (.f64 phi2 phi2)))) (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (hypot.f64 phi2 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (cos (* 1/2 phi2)))
(.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2))))
(.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 lambda2 lambda2))) (/.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) lambda2))))
(* lambda2 (+ (cos (* 1/2 phi2)) (+ (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* (pow lambda2 3) (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (* (pow lambda2 2) (cos (* 1/2 phi2)))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 phi2 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 lambda2 (.f64 lambda2 lambda2)))) (/.f64 (.f64 phi2 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 lambda2 lambda2)))) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)) lambda2))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1/2 (/ (pow phi2 2) (* lambda2 (cos (* 1/2 phi2))))) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (fma.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow phi2 2)) (* lambda2 (cos (* 1/2 phi2))))) (* 1/2 (/ (pow phi2 2) (cos (* 1/2 phi2))))) lambda2)) (* lambda1 (cos (* 1/2 phi2)))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 phi2 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (/.f64 (.f64 phi2 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) lambda2)) lambda2)) (neg.f64 lambda2))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 lambda1 R) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda2 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (neg.f64 lambda1))) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 lambda1 R) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda1 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (-.f64 (.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 R phi1) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) (/.f64 (*.f64 phi2 R) (neg.f64 phi1)))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R) (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))))
(* -1 (* R phi1))
(neg.f64 (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (.f64 phi2 R)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (fma.f64 phi2 R (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 R (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) (neg.f64 phi1))) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 R) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 phi2 R) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 phi2 R) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 phi2 R)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(.f64 phi2 (-.f64 R (/.f64 (.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (neg.f64 (/.f64 (*.f64 R phi1) phi2)))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))))) (/.f64 (.f64 R phi1) phi2))))
(* -1 (* R phi2))
(*.f64 phi2 (neg.f64 R))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (.f64 R phi1) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (.f64 R phi1)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 R phi1) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 R (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda1 (+.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (/.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda1))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (-.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda1)) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda2 (+.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (neg.f64 lambda2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (-.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) lambda2)) (neg.f64 lambda2))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 phi1 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))))) (/.f64 phi2 phi1)) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) phi2) (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 (neg.f64 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) (neg.f64 phi2)) phi2))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* lambda1 (cos (* 1/2 phi2)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* lambda1 (cos (* 1/2 phi2)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda2 (cos (* 1/2 phi2))) lambda1))))
(.f64 (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda1) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 lambda1))
(* lambda1 (cos (* 1/2 phi2)))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* lambda1 (cos (* 1/2 phi2))))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi2))) (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))
(.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi2)) (* -1 (/ (* lambda1 (cos (* 1/2 phi2))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ lambda1 (* -1/8 (* (pow phi2 2) (- lambda1 lambda2)))) lambda2)
(-.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi2 phi2)) (-.f64 lambda1 lambda2) lambda1) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* 1/384 (* (pow phi2 2) (- lambda1 lambda2)))))) lambda2)
(-.f64 (fma.f64 (.f64 phi2 phi2) (fma.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/384 binary64) (.f64 phi2 phi2)) (-.f64 lambda1 lambda2))) lambda1) lambda2)
(- (+ lambda1 (* (pow phi2 2) (+ (* -1/8 (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/46080 (* (pow phi2 2) (- lambda1 lambda2))) (* 1/384 (- lambda1 lambda2))))))) lambda2)
(-.f64 (fma.f64 (.f64 phi2 phi2) (fma.f64 (.f64 phi2 phi2) (fma.f64 (-.f64 lambda1 lambda2) #s(literal 1/384 binary64) (.f64 (.f64 #s(literal -1/46080 binary64) (.f64 phi2 phi2)) (-.f64 lambda1 lambda2))) (.f64 (-.f64 lambda1 lambda2) #s(literal -1/8 binary64))) lambda1) lambda2)
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* (cos (* 1/2 phi2)) (- lambda1 lambda2))
(.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 lambda1 R) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda2 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (neg.f64 lambda1))) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 lambda1 R) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda1 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (-.f64 (.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 R phi1) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) (/.f64 (*.f64 phi2 R) (neg.f64 phi1)))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R) (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))))
(* -1 (* R phi1))
(neg.f64 (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (.f64 phi2 R)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (fma.f64 phi2 R (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 R (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) (neg.f64 phi1))) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 R) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 phi2 R) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 phi2 R) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 phi2 R)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(.f64 phi2 (-.f64 R (/.f64 (.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (neg.f64 (/.f64 (*.f64 R phi1) phi2)))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))))) (/.f64 (.f64 R phi1) phi2))))
(* -1 (* R phi2))
(*.f64 phi2 (neg.f64 R))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (.f64 R phi1) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (.f64 R phi1)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 R phi1) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 R (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda1 (+.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (/.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda1))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (-.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda1)) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda2 (+.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (neg.f64 lambda2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (-.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) lambda2)) (neg.f64 lambda2))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 phi1 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))))) (/.f64 phi2 phi1)) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) phi2) (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 (neg.f64 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) (neg.f64 phi2)) phi2))
(+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) #s(literal -2 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 lambda1 (fma.f64 (.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* lambda1 (+ (* -2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 lambda1 (fma.f64 (.f64 #s(literal -2 binary64) lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda1 lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(.f64 (.f64 lambda1 lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) lambda1) (fma.f64 (.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda1 lambda1))))))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (+ (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda1 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda1 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(.f64 (.f64 lambda1 lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) lambda1) (fma.f64 (.f64 lambda2 lambda2) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda1 lambda1))))))
(* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(* (pow lambda1 2) (+ (* -2 (/ (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda1 lambda1) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) lambda1) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (/.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda1)) lambda1)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda1)) (* 2 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda1)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 #s(literal 2 binary64) lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (/.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) lambda1)) lambda1)))
(+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))
(fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(+ (* -2 (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) #s(literal -2 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 lambda2 (fma.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(+ (* lambda2 (+ (* -2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(fma.f64 lambda2 (fma.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -2 binary64) lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) lambda2) (fma.f64 (.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 lambda2 lambda2)) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda2 lambda2))))))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (+ (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow lambda2 2)) (+ (/ (pow (- phi1 phi2) 2) (pow lambda2 2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))))
(.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) lambda2) (fma.f64 (.f64 lambda1 lambda1) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 lambda2 lambda2)) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda2 lambda2))))))
(* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2))
(.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(* (pow lambda2 2) (+ (* -2 (/ (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda2 lambda2) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) lambda2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (fma.f64 #s(literal 2 binary64) (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (/.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (neg.f64 lambda2))) lambda2)))
(* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) lambda2)) (* 2 (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) lambda2)) (pow (cos (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (.f64 lambda2 lambda2) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (fma.f64 #s(literal 2 binary64) (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (/.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (neg.f64 lambda2))) lambda2)))
(+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2))
(+ (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(fma.f64 phi1 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(fma.f64 phi1 (fma.f64 phi2 #s(literal -2 binary64) (fma.f64 phi1 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))
(+ (* phi1 (+ (* -2 phi2) (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))) (* phi1 (+ 1 (+ (* phi1 (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(fma.f64 phi1 (fma.f64 phi2 #s(literal -2 binary64) (-.f64 (fma.f64 phi1 (fma.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 phi2 phi2)))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) #s(literal 1 binary64)))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(.f64 (.f64 phi1 phi1) (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) #s(literal 1 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (/.f64 (.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(* (pow phi1 2) (+ 1 (+ (* -2 (/ phi2 phi1)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) (/ (pow phi2 2) (pow phi1 2))))))
(.f64 (.f64 phi1 phi1) (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) #s(literal 1 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (/.f64 (.f64 phi2 phi2) (*.f64 phi1 phi1)))))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -2 (/ phi2 phi1))))
(.f64 (.f64 phi1 phi1) (fma.f64 #s(literal -2 binary64) (/.f64 phi2 phi1) #s(literal 1 binary64)))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(.f64 (.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 phi2 #s(literal 2 binary64)) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 phi2 phi2)) phi1)) phi1)))
(* (pow phi1 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) phi1)) (* 2 phi2)) phi1))))
(.f64 (.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 phi2 #s(literal 2 binary64)) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 phi2 phi2)) phi1)) phi1)))
(+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1))
(+ (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(fma.f64 phi2 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(fma.f64 phi2 (fma.f64 phi1 #s(literal -2 binary64) (fma.f64 phi2 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))
(+ (* phi2 (+ (* -2 phi1) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))) (* phi2 (+ 1 (+ (* phi2 (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2))) (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2)))))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(fma.f64 phi2 (fma.f64 phi1 #s(literal -2 binary64) (-.f64 (fma.f64 phi2 (fma.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64))) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 phi1 phi1)))
(pow phi2 2)
(*.f64 phi2 phi2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) #s(literal 1 binary64)))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(.f64 (.f64 phi2 phi2) (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) #s(literal 1 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(* (pow phi2 2) (+ 1 (+ (* -2 (/ phi1 phi2)) (+ (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)) (/ (pow phi1 2) (pow phi2 2))))))
(.f64 (.f64 phi2 phi2) (+.f64 (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) #s(literal 1 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) (/.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)))))
(pow phi2 2)
(*.f64 phi2 phi2)
(* (pow phi2 2) (+ 1 (* -2 (/ phi1 phi2))))
(.f64 (.f64 phi2 phi2) (fma.f64 #s(literal -2 binary64) (/.f64 phi1 phi2) #s(literal 1 binary64)))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(.f64 (.f64 phi2 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 2 binary64) phi1) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 phi1 phi1)) phi2)) phi2)))
(* (pow phi2 2) (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)) phi2)) (* 2 phi1)) phi2))))
(.f64 (.f64 phi2 phi2) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 2 binary64) phi1) (/.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 phi1 phi1)) phi2)) phi2)))
(pow phi2 2)
(*.f64 phi2 phi2)
(pow phi2 2)
(*.f64 phi2 phi2)
(pow phi2 2)
(*.f64 phi2 phi2)
(pow phi2 2)
(*.f64 phi2 phi2)
(pow phi2 2)
(*.f64 phi2 phi2)
(pow phi2 2)
(*.f64 phi2 phi2)
(pow phi2 2)
(*.f64 phi2 phi2)
(pow phi2 2)
(*.f64 phi2 phi2)
(pow phi2 2)
(*.f64 phi2 phi2)
(pow phi2 2)
(*.f64 phi2 phi2)
(pow phi2 2)
(*.f64 phi2 phi2)
(pow phi2 2)
(*.f64 phi2 phi2)
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 lambda1 R) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda2 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (neg.f64 lambda1))) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 lambda1 R) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda1 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (-.f64 (.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 R phi1) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) (/.f64 (*.f64 phi2 R) (neg.f64 phi1)))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R) (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))))
(* -1 (* R phi1))
(neg.f64 (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (.f64 phi2 R)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (fma.f64 phi2 R (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 R (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) (neg.f64 phi1))) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 R) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 phi2 R) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 phi2 R) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 phi2 R)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(.f64 phi2 (-.f64 R (/.f64 (.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (neg.f64 (/.f64 (*.f64 R phi1) phi2)))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))))) (/.f64 (.f64 R phi1) phi2))))
(* -1 (* R phi2))
(*.f64 phi2 (neg.f64 R))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (.f64 R phi1) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (.f64 R phi1)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 R phi1) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 R (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi2))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda2 (cos (* 1/2 phi2)))))
(fma.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 #s(literal -1/2 binary64) R) (.f64 (.f64 lambda2 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda2 (* phi1 (cos (* 1/2 phi2)))))))))
(fma.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) R (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 #s(literal -1/8 binary64) R) (.f64 (.f64 lambda2 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))
(+ (* R (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda2 (* phi1 (sin (* 1/2 phi2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 #s(literal 1/48 binary64) R) (.f64 (.f64 lambda2 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 phi1))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda2 (cos (* 1/2 phi1)))))
(fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda2 (* phi2 (cos (* 1/2 phi1)))))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal -1/8 binary64) R) (.f64 (.f64 lambda2 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* R (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda2 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda2 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda2 (* phi2 (sin (* 1/2 phi1)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal 1/48 binary64) R) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(* R lambda2)
(*.f64 lambda2 R)
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.f64 (.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 lambda1 R) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda2 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (neg.f64 lambda1))) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 lambda1 R) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda1 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (-.f64 (.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 R phi1) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) (/.f64 (*.f64 phi2 R) (neg.f64 phi1)))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R) (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))))
(* -1 (* R phi1))
(neg.f64 (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (.f64 phi2 R)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (fma.f64 phi2 R (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 R (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) (neg.f64 phi1))) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 R) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 phi2 R) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 phi2 R) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 phi2 R)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(.f64 phi2 (-.f64 R (/.f64 (.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (neg.f64 (/.f64 (*.f64 R phi1) phi2)))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))))) (/.f64 (.f64 R phi1) phi2))))
(* -1 (* R phi2))
(*.f64 phi2 (neg.f64 R))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (.f64 R phi1) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (.f64 R phi1)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 R phi1) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 R (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi2))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (* -1/2 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))) (* R (* lambda1 (cos (* 1/2 phi2)))))
(fma.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 #s(literal -1/2 binary64) R) (.f64 (.f64 lambda1 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* -1/8 (* R (* lambda1 (* phi1 (cos (* 1/2 phi2)))))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda1 R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 #s(literal -1/8 binary64) R) (.f64 (.f64 lambda1 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(+ (* R (* lambda1 (cos (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi2))))) (* phi1 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi2))))) (* 1/48 (* R (* lambda1 (* phi1 (sin (* 1/2 phi2)))))))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda1 R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 #s(literal 1/48 binary64) R) (.f64 (.f64 lambda1 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 phi1))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* -1/2 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))) (* R (* lambda1 (cos (* 1/2 phi1)))))
(fma.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 #s(literal -1/2 binary64) R) (.f64 (.f64 lambda1 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* -1/8 (* R (* lambda1 (* phi2 (cos (* 1/2 phi1)))))))))
(fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda1 R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal -1/8 binary64) R) (.f64 (.f64 lambda1 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+ (* R (* lambda1 (cos (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* R (* lambda1 (sin (* 1/2 phi1))))) (* phi2 (+ (* -1/8 (* R (* lambda1 (cos (* 1/2 phi1))))) (* 1/48 (* R (* lambda1 (* phi2 (sin (* 1/2 phi1)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal 1/48 binary64) (.f64 R (.f64 (.f64 lambda1 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda1 R) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R (* lambda1 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(* R lambda1)
(*.f64 lambda1 R)
(cos (* 1/2 phi2))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+ (cos (* 1/2 phi2)) (* -1/2 (* phi1 (sin (* 1/2 phi2)))))
(fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* 1/2 phi2)))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+ (cos (* 1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* 1/2 phi2))) (* 1/48 (* phi1 (sin (* 1/2 phi2)))))) (* 1/2 (sin (* 1/2 phi2))))))
(fma.f64 phi1 (fma.f64 phi1 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))
(fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.f64 (.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* 1/48 (* phi2 (sin (* 1/2 phi1)))))) (* 1/2 (sin (* 1/2 phi1))))))
(fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/8 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 #s(literal 1/48 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (+ phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos (* 1/2 (- phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(.f64 lambda2 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(.f64 lambda2 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(.f64 lambda2 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(.f64 lambda2 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(.f64 lambda2 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(.f64 lambda2 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(.f64 lambda2 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* lambda2 (+ (* -1 (cos (* 1/2 phi1))) (* 1/2 (* phi2 (sin (* 1/2 phi1))))))
(.f64 lambda2 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 phi1)) (* -1/2 (* phi2 (sin (* 1/2 phi1)))))))
(.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1)))))
(.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(* phi2 (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda2 (sin (* 1/2 phi1))))))
(.f64 phi2 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* phi2 (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda2 (sin (* 1/2 phi1))))))
(.f64 phi2 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* phi2 (+ (* -1 (/ (* lambda2 (cos (* 1/2 phi1))) phi2)) (* 1/2 (* lambda2 (sin (* 1/2 phi1))))))
(.f64 phi2 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1)))))
(.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(* -1 (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (/ (* lambda2 (cos (* 1/2 phi1))) phi2))))
(.f64 (neg.f64 phi2) (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (/ (* lambda2 (cos (* 1/2 phi1))) phi2))))
(.f64 (neg.f64 phi2) (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* phi2 (+ (* -1/2 (* lambda2 (sin (* 1/2 phi1)))) (/ (* lambda2 (cos (* 1/2 phi1))) phi2))))
(.f64 (neg.f64 phi2) (fma.f64 lambda2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 lambda2)
(neg.f64 lambda2)
(+ (* -1 lambda2) (* 1/4 (* lambda2 (* phi1 phi2))))
(fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))
(+ (* -1 lambda2) (* phi1 (+ (* 1/8 (* lambda2 phi1)) (* 1/4 (* lambda2 phi2)))))
(-.f64 (.f64 phi1 (fma.f64 (.f64 lambda2 #s(literal 1/8 binary64)) phi1 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 phi2)))) lambda2)
(+ (* -1 lambda2) (* phi1 (+ (* 1/4 (* lambda2 phi2)) (* phi1 (+ (* -1/96 (* lambda2 (* phi1 phi2))) (* 1/8 lambda2))))))
(-.f64 (.f64 phi1 (fma.f64 phi1 (fma.f64 (.f64 lambda2 (.f64 phi2 phi1)) #s(literal -1/96 binary64) (.f64 lambda2 #s(literal 1/8 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 phi2)))) lambda2)
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 (.f64 lambda1 R) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda1 (+ (* -1 (* (* R (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 lambda1 R) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda2 R) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda2 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)))
(* -1 (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda1 (+ (* -1 (/ (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 (.f64 lambda2 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1)) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda2 (pow (- phi1 phi2) 2))) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda1 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda2 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (neg.f64 lambda1))) lambda1))))
(* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (* -1 (* (* R (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))
(-.f64 (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (.f64 (.f64 R (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* R (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(+ (* R (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (* lambda2 (+ (* -1 (* (* R (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (* R (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))) (* 1/2 (* (* R (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 lambda1 R) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))) (.f64 R (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* R (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (.f64 lambda2 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2))))))
(.f64 lambda2 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (+ (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))) (* R (cos (* 1/2 (+ phi1 phi2))))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 lambda1 R) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)))
(* -1 (* R (* lambda2 (cos (* 1/2 (+ phi1 phi2))))))
(.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* -1 (* lambda2 (+ (* -1 (/ (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (fma.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 (neg.f64 (.f64 lambda1 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1/2 (/ (* R (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(.f64 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (fma.f64 R (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* R (* lambda1 (pow (- phi1 phi2) 2))) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (* R (pow (- phi1 phi2) 2)) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* R (cos (* 1/2 (+ phi1 phi2)))))))
(neg.f64 (.f64 lambda2 (-.f64 (.f64 R (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (-.f64 (.f64 (.f64 lambda1 R) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 lambda1 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 R (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) lambda2))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))
(.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (* 1/2 (* (* R (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 R phi1) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (* phi1 (+ (* 1/2 (* (* R (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (* R (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (.f64 (.f64 R phi1) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 R (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(* R phi1)
(*.f64 R phi1)
(* phi1 (+ R (* -1 (/ (* R phi2) phi1))))
(*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2))))))
(.f64 phi1 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) (/.f64 (*.f64 phi2 R) (neg.f64 phi1)))))
(* phi1 (+ R (+ (* -1 (/ (* R phi2) phi1)) (+ (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi1 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 2)))))))
(.f64 phi1 (+.f64 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R) (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi2 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1))))))))
(* -1 (* R phi1))
(neg.f64 (*.f64 R phi1))
(* -1 (* phi1 (+ R (* -1 (/ (* R phi2) phi1)))))
(neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1)) (* R phi2)) phi1)))))
(.f64 (neg.f64 phi1) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))) (.f64 phi2 R)) phi1)))
(* -1 (* phi1 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)))) phi1))) phi1)) (* R phi2)) phi1)))))
(neg.f64 (.f64 phi1 (-.f64 R (/.f64 (fma.f64 phi2 R (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 R (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)))))) (neg.f64 phi1))) phi1))))
(* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))
(.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (* 1/2 (* (* R (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 R) (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 phi2 R) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(+ (* R (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (* phi2 (+ (* 1/2 (* (* R (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (* R (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (* R (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (.f64 (.f64 phi2 R) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 R (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))))) (.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))) (.f64 R (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(* R phi2)
(*.f64 phi2 R)
(* phi2 (+ R (* -1 (/ (* R phi1) phi2))))
(.f64 phi2 (-.f64 R (/.f64 (.f64 R phi1) phi2)))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2))))))
(.f64 phi2 (+.f64 R (fma.f64 #s(literal 1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) (neg.f64 (/.f64 (*.f64 R phi1) phi2)))))
(* phi2 (+ R (+ (* -1 (/ (* R phi1) phi2)) (+ (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)))) (pow phi2 3))) (* 1/2 (/ (* R (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 2)))))))
(.f64 phi2 (+.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (/.f64 (.f64 phi1 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))))) (/.f64 (.f64 R phi1) phi2))))
(* -1 (* R phi2))
(*.f64 phi2 (neg.f64 R))
(* -1 (* phi2 (+ R (* -1 (/ (* R phi1) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (.f64 R phi1) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1/2 (/ (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2)) (* R phi1)) phi2)))))
(.f64 (neg.f64 phi2) (-.f64 R (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 R (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))) (.f64 R phi1)) phi2)))
(* -1 (* phi2 (+ R (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (* R (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) (* 1/2 (/ (* R (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)))) phi2))) phi2)) (* R phi1)) phi2)))))
(neg.f64 (.f64 phi2 (-.f64 R (/.f64 (-.f64 (.f64 R phi1) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 R (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 R (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)))))) phi2)) phi2))))
(sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))))) (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda1 (+ (* -1 (* (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda2 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda1 (fma.f64 lambda1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda1 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1))))
(.f64 lambda1 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda1 (+.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)) (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* (pow lambda1 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda1 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda1 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))) (/.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) lambda1))))
(* -1 (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda2 (cos (* 1/2 (+ phi1 phi2)))) lambda1)))))
(.f64 (fma.f64 (neg.f64 lambda2) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (neg.f64 lambda1))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) lambda1))))
(* -1 (* lambda1 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda2 (pow (- phi1 phi2) 2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda1)) (* lambda2 (cos (* 1/2 (+ phi1 phi2))))) lambda1)))))
(neg.f64 (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (-.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda1)) lambda1))))
(sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))
(hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* -1 (* (* lambda1 (* lambda2 (pow (cos (* 1/2 (+ phi1 phi2))) 2))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))
(fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 (.f64 lambda1 lambda2) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda2 (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))))))
(fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+ (sqrt (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))) (* lambda2 (+ (* -1 (* (* lambda1 (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)))))) (* 1/2 (* (* lambda1 (* lambda2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (- (pow (cos (* 1/2 (+ phi1 phi2))) 2) (/ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 4)) (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2))))))) (sqrt (/ 1 (pow (+ (* (pow lambda1 2) (pow (cos (* 1/2 (+ phi1 phi2))) 2)) (pow (- phi1 phi2) 2)) 3))))))))))
(fma.f64 lambda2 (fma.f64 lambda2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 lambda1 (.f64 (.f64 (.f64 lambda2 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 4 binary64))) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal 3 binary64)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda1 lambda1) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (neg.f64 (.f64 lambda1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))))) (hypot.f64 (-.f64 phi1 phi2) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(* lambda2 (cos (* 1/2 (+ phi1 phi2))))
(.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2))))
(.f64 lambda2 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2)))))))))
(.f64 lambda2 (+.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (+ (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* (pow lambda2 3) (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (* (pow lambda2 2) (cos (* 1/2 (+ phi1 phi2))))))))))
(.f64 lambda2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (neg.f64 lambda2)))))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (* lambda1 (cos (* 1/2 (+ phi1 phi2)))) lambda2)))))
(.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1/2 (/ (pow (- phi1 phi2) 2) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (fma.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ (cos (* 1/2 (+ phi1 phi2))) (* -1 (/ (+ (* -1 (/ (+ (* 1/2 (/ (* lambda1 (pow (- phi1 phi2) 2)) (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))) (* 1/2 (/ (pow (- phi1 phi2) 2) (cos (* 1/2 (+ phi1 phi2)))))) lambda2)) (* lambda1 (cos (* 1/2 (+ phi1 phi2))))) lambda2)))))
(.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (/.f64 (-.f64 (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (/.f64 (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) lambda2)) lambda2)) (neg.f64 lambda2))
(sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))
(hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* 1/2 (* (* phi1 (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))
(fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))) (* phi1 (+ (* 1/2 (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))) (* 1/2 (* (* phi1 (- (* (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi2)) 2)) (* 1/4 (pow (sin (* 1/2 phi2)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi2) (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi2)) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))))))
(fma.f64 phi1 (fma.f64 phi1 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (.f64 phi1 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi2 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 phi2 phi2))))))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))
(fma.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (+ (* -1 (/ phi2 phi1)) (+ (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi1 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))))) (/.f64 phi2 phi1)) phi1)
(* -1 phi1)
(neg.f64 phi1)
(* -1 (* phi1 (+ 1 (* -1 (/ phi2 phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 phi2 (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2)) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1)) phi2) (neg.f64 phi1)) phi1))
(* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi2 (* (pow (cos (* 1/2 (- phi2 (* -1 phi1)))) 2) (pow (- lambda1 lambda2) 2))) phi1))) phi1))) phi1)))))
(neg.f64 (fma.f64 phi1 (/.f64 (-.f64 phi2 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi1))))) phi1)) (neg.f64 phi1)) phi1))
(sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))
(hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* 1/2 (* (* phi2 (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))
(fma.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+ (sqrt (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))) (* phi2 (+ (* 1/2 (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2))))))) (* 1/2 (* (* phi2 (- (* (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (- lambda1 lambda2) 2)) (* 1/2 (/ (* (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) (- (+ 1 (* (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2))) (pow (- lambda1 lambda2) 2))) (* 1/4 (/ (pow (+ (* -2 phi1) (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (- lambda1 lambda2) 2))))) 2) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))) (sqrt (/ 1 (+ (* (pow (cos (* 1/2 phi1)) 2) (pow (- lambda1 lambda2) 2)) (pow phi1 2)))))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (.f64 phi2 (.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) (+.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1)))))))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
phi2
(* phi2 (+ 1 (* -1 (/ phi1 phi2))))
(fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2))))))
(fma.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 phi2)) phi2)
(* phi2 (+ 1 (+ (* -1 (/ phi1 phi2)) (+ (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2))) (pow phi2 3))) (* 1/2 (/ (* (pow (cos (* 1/2 (+ phi1 phi2))) 2) (pow (- lambda1 lambda2) 2)) (pow phi2 2)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (/.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))) (.f64 phi2 (.f64 phi2 phi2))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) (/.f64 phi1 (neg.f64 phi2))) phi2)
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1/2 (/ (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2)) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2)) phi1) (neg.f64 phi2)) phi2))
(* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* -1 (/ (+ (* 1/2 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) (* 1/2 (/ (* phi1 (* (pow (cos (* 1/2 (- phi1 (* -1 phi2)))) 2) (pow (- lambda1 lambda2) 2))) phi2))) phi2))) phi2)))))
(neg.f64 (fma.f64 phi2 (/.f64 (-.f64 phi1 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) phi2))))) phi2)) (neg.f64 phi2)) phi2))
(* -1 (* lambda2 (cos (* 1/2 phi2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* 1/2 (* lambda2 (* phi1 (sin (* 1/2 phi2))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/8 (* lambda2 (* phi1 (cos (* 1/2 phi2))))) (* 1/2 (* lambda2 (sin (* 1/2 phi2)))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 lambda2 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi2)))) (* phi1 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/48 (* lambda2 (* phi1 (sin (* 1/2 phi2))))) (* 1/8 (* lambda2 (cos (* 1/2 phi2)))))))))
(fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 (.f64 (.f64 lambda2 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal -1/48 binary64) (.f64 (.f64 lambda2 #s(literal 1/8 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi2 (* -1 phi1))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* 1/2 (* lambda2 (* phi2 (sin (* 1/2 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/8 (* lambda2 (* phi2 (cos (* 1/2 phi1))))) (* 1/2 (* lambda2 (sin (* 1/2 phi1)))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 lambda2 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+ (* -1 (* lambda2 (cos (* 1/2 phi1)))) (* phi2 (+ (* 1/2 (* lambda2 (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/48 (* lambda2 (* phi2 (sin (* 1/2 phi1))))) (* 1/8 (* lambda2 (cos (* 1/2 phi1)))))))))
(fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (fma.f64 (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1/48 binary64) (.f64 (.f64 lambda2 #s(literal 1/8 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (- phi1 (* -1 phi2))))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 (+ phi1 phi2)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (neg.f64 lambda2))
(* -1 lambda2)
(neg.f64 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(fma.f64 lambda1 (/.f64 lambda2 (neg.f64 lambda1)) lambda1)
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(fma.f64 lambda1 (/.f64 lambda2 (neg.f64 lambda1)) lambda1)
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(fma.f64 lambda1 (/.f64 lambda2 (neg.f64 lambda1)) lambda1)
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(neg.f64 (fma.f64 (/.f64 lambda2 lambda1) lambda1 (neg.f64 lambda1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(neg.f64 (fma.f64 (/.f64 lambda2 lambda1) lambda1 (neg.f64 lambda1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(neg.f64 (fma.f64 (/.f64 lambda2 lambda1) lambda1 (neg.f64 lambda1)))
lambda1
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(* -1 lambda2)
(neg.f64 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(fma.f64 lambda2 (/.f64 lambda1 lambda2) (neg.f64 lambda2))
(* lambda2 (- (/ lambda1 lambda2) 1))
(fma.f64 lambda2 (/.f64 lambda1 lambda2) (neg.f64 lambda2))
(* lambda2 (- (/ lambda1 lambda2) 1))
(fma.f64 lambda2 (/.f64 lambda1 lambda2) (neg.f64 lambda2))
(* -1 lambda2)
(neg.f64 lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(neg.f64 (fma.f64 lambda2 (/.f64 lambda1 (neg.f64 lambda2)) lambda2))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(neg.f64 (fma.f64 lambda2 (/.f64 lambda1 (neg.f64 lambda2)) lambda2))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(neg.f64 (fma.f64 lambda2 (/.f64 lambda1 (neg.f64 lambda2)) lambda2))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* phi1 (+ 1/2 (* 1/2 (/ phi2 phi1))))
(*.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1) #s(literal 1/2 binary64)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* -1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1) #s(literal -1/2 binary64)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(+ (* 1/2 phi1) (* 1/2 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* phi2 (+ 1/2 (* 1/2 (/ phi1 phi2))))
(*.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2) #s(literal 1/2 binary64)))
(* 1/2 phi2)
(*.f64 #s(literal 1/2 binary64) phi2)
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
(* -1 (* phi2 (- (* -1/2 (/ phi1 phi2)) 1/2)))
(neg.f64 (*.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2) #s(literal -1/2 binary64))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* 1/2 (* lambda2 (* phi1 phi2)))
(.f64 (.f64 #s(literal 1/2 binary64) lambda2) (*.f64 phi2 phi1))
(* phi1 (+ (* -1/48 (* lambda2 (* (pow phi1 2) phi2))) (* 1/2 (* lambda2 phi2))))
(.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 phi2) (.f64 (.f64 #s(literal -1/48 binary64) lambda2) (.f64 phi2 (.f64 phi1 phi1)))))
(* phi1 (+ (* 1/2 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/48 (* lambda2 phi2)) (* 1/3840 (* lambda2 (* (pow phi1 2) phi2)))))))
(.f64 phi1 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 lambda2 (.f64 phi2 (.f64 phi1 phi1))) #s(literal 1/3840 binary64) (.f64 (.f64 lambda2 phi2) #s(literal -1/48 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 lambda2 phi2))))
(* phi1 (+ (* 1/2 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/48 (* lambda2 phi2)) (* (pow phi1 2) (+ (* -1/645120 (* lambda2 (* (pow phi1 2) phi2))) (* 1/3840 (* lambda2 phi2))))))))
(.f64 phi1 (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 lambda2 phi2) #s(literal 1/3840 binary64) (.f64 (.f64 #s(literal -1/645120 binary64) lambda2) (.f64 phi2 (.f64 phi1 phi1)))) (.f64 (.f64 lambda2 phi2) #s(literal -1/48 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 phi2))))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* lambda2 (* phi2 (sin (* 1/2 phi1))))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1 lambda2)
(neg.f64 lambda2)
(+ (* -1 lambda2) (* 1/8 (* lambda2 (pow phi1 2))))
(fma.f64 #s(literal 1/8 binary64) (.f64 lambda2 (.f64 phi1 phi1)) (neg.f64 lambda2))
(+ (* -1 lambda2) (* (pow phi1 2) (+ (* -1/384 (* lambda2 (pow phi1 2))) (* 1/8 lambda2))))
(fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 lambda2 (.f64 phi1 phi1)) #s(literal -1/384 binary64) (.f64 lambda2 #s(literal 1/8 binary64))) (neg.f64 lambda2))
(+ (* -1 lambda2) (* (pow phi1 2) (+ (* 1/8 lambda2) (* (pow phi1 2) (+ (* -1/384 lambda2) (* 1/46080 (* lambda2 (pow phi1 2))))))))
(-.f64 (.f64 (.f64 phi1 phi1) (fma.f64 (.f64 phi1 phi1) (fma.f64 (.f64 lambda2 (.f64 phi1 phi1)) #s(literal 1/46080 binary64) (.f64 lambda2 #s(literal -1/384 binary64))) (*.f64 lambda2 #s(literal 1/8 binary64)))) lambda2)
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(* -1 (* lambda2 (cos (* 1/2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))

rewrite295.0ms (2.5%)

Memory

5.5MiB live, 316.7MiB allocated

Rules

4 376×	`lower-fma.f32`
4 374×	`lower-fma.f64`
3 982×	`lower-*.f32`
3 954×	`lower-*.f64`
3 676×	`lower-/.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	57	554
0	84	455
1	218	455
2	1258	455
0	8412	425

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Counts

25 → 263

Calls

Call 1

Inputs
(hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))
#s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))
(*.f64 phi2 phi2)
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))))
(*.f64 R lambda2)
(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(*.f64 R lambda1)
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))))
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))))
#s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))
(-.f64 lambda1 lambda2)
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))
(.f64 (.f64 lambda2 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))

Outputs
(exp.f64 (.f64 (log.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) #s(literal 1/2 binary64)))
(hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))
(hypot.f64 phi2 (exp.f64 (log.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
(hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) phi2)
(hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (neg.f64 phi2))
(hypot.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (exp.f64 (log.f64 phi2)))
(hypot.f64 (neg.f64 phi2) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))
(hypot.f64 (neg.f64 phi2) (exp.f64 (log.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
(hypot.f64 (exp.f64 (log.f64 phi2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))
(hypot.f64 (exp.f64 (log.f64 phi2)) (exp.f64 (log.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
(hypot.f64 (exp.f64 (log.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) phi2)
(hypot.f64 (exp.f64 (log.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (neg.f64 phi2))
(hypot.f64 (exp.f64 (log.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (exp.f64 (log.f64 phi2)))
(sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (neg.f64 (.f64 phi2 phi2))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) (sqrt.f64 (fma.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (*.f64 phi2 phi2))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 (+.f64 phi2 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))) (sqrt.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) (.f64 (+.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))))))
(/.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (sqrt.f64 (fma.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (neg.f64 (.f64 phi2 phi2))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))))
(/.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (sqrt.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))) (.f64 (.f64 phi2 phi2) (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))))))
(/.f64 (sqrt.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) (.f64 (+.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (.f64 (+.f64 phi2 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))))
(/.f64 (sqrt.f64 (neg.f64 (fma.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))))) (sqrt.f64 (neg.f64 (fma.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (neg.f64 (.f64 phi2 phi2))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))))
(/.f64 (sqrt.f64 (neg.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) (.f64 (+.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (.f64 (+.f64 phi2 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(/.f64 (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (neg.f64 (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (sqrt.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (neg.f64 (*.f64 phi2 phi2)))))
(/.f64 (neg.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))))) (neg.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (neg.f64 (.f64 phi2 phi2))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) (.f64 (+.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))))) (neg.f64 (sqrt.f64 (.f64 (+.f64 phi2 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(pow.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64))
(.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (neg.f64 (.f64 phi2 phi2))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (neg.f64 (.f64 phi2 phi2))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))))
(.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi2 phi2) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (neg.f64 (.f64 phi2 phi2))) (.f64 phi2 (.f64 phi2 (.f64 phi2 phi2)))))))
(.f64 (sqrt.f64 (.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) (.f64 (+.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (.f64 (+.f64 phi2 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) (.f64 (+.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (+.f64 phi2 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(.f64 (sqrt.f64 (.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) (.f64 (+.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 (+.f64 phi2 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) (-.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(.f64 (pow.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)) #s(literal 1/4 binary64)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2))))
(exp.f64 (.f64 (log.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)))
#s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))
(pow.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))) R)
(exp.f64 (.f64 (log.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))) #s(literal 1/2 binary64)))
(sqrt.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))
(pow.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (.f64 phi2 phi2)) #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 (log.f64 #s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)))) #s(literal 1/2 binary64))
(.f64 (pow.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (.f64 phi2 phi2)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2)) #s(literal 1/4 binary64)))
#s(approx (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 phi2)))
(pow.f64 phi2 #s(literal 2 binary64))
(pow.f64 (*.f64 phi2 phi2) #s(literal 1 binary64))
(pow.f64 (neg.f64 phi2) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 phi2)) #s(literal 2 binary64))
(*.f64 phi2 phi2)
(*.f64 (neg.f64 phi2) (neg.f64 phi2))
(*.f64 (exp.f64 (log.f64 phi2)) (exp.f64 (log.f64 phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 lambda2 R) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))))
(.f64 lambda2 (.f64 R (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))))
(.f64 R (.f64 lambda2 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))))
(.f64 (.f64 lambda2 R) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))))
(.f64 (cos.f64 #s(approx ( 1/2 (+ phi1 phi2)) (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 lambda2 R))
(.f64 (.f64 lambda2 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))) R)
(.f64 (.f64 (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))) R) lambda2)
(*.f64 lambda2 R)
(*.f64 R lambda2)
(cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(.f64 lambda1 (.f64 R (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(.f64 R (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(.f64 (.f64 lambda1 R) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 lambda1 R))
(.f64 (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) R)
(.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) R) lambda1)
(*.f64 lambda1 R)
(*.f64 R lambda1)
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(cos.f64 (*.f64 (+.f64 phi2 phi1) #s(literal -1/2 binary64)))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (neg.f64 (/.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(-.f64 (/.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)))) (/.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)))))
(fma.f64 lambda2 (.f64 (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(fma.f64 (.f64 phi2 lambda2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(fma.f64 (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (*.f64 phi2 #s(literal 1/2 binary64)) lambda2)))
(fma.f64 (neg.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (*.f64 phi2 #s(literal 1/2 binary64)) lambda2)))
(fma.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (neg.f64 (/.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)))
(fma.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(fma.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (*.f64 phi2 #s(literal 1/2 binary64)) lambda2)))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1 binary64)) lambda2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)))
(fma.f64 (.f64 #s(literal 1/2 binary64) lambda2) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2))))))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2))) (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)))))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))))) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))))) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))))) (neg.f64 (neg.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))))) (neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (/.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (/.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))) #s(literal -1 binary64))
(.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (*.f64 phi2 #s(literal 1/2 binary64)) lambda2)))))))
(.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (fma.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))
(.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 (neg.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (*.f64 phi2 #s(literal 1/2 binary64)) lambda2))))))))
(.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(.f64 (-.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (*.f64 phi2 #s(literal 1/2 binary64)) lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))) R)
#s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))))
#s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))
(+.f64 lambda1 (neg.f64 lambda2))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 (/.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (neg.f64 (/.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))))))
(+.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (neg.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda1 lambda2))))
(-.f64 lambda1 lambda2)
(-.f64 (/.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)))
(fma.f64 lambda2 #s(literal -1 binary64) lambda1)
(fma.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (neg.f64 (/.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))))))
(fma.f64 (.f64 lambda1 lambda1) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)) (neg.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda1 lambda2))))
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(fma.f64 (neg.f64 (.f64 lambda2 (.f64 lambda2 lambda2))) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 lambda2 #s(literal 0 binary64))) lambda1)
(fma.f64 (neg.f64 (*.f64 lambda2 lambda2)) (/.f64 #s(literal 1 binary64) lambda2) lambda1)
(/.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))
(/.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (fma.f64 lambda1 lambda1 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda1 lambda1 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 (neg.f64 lambda2)))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 (neg.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 lambda1 lambda1 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 (neg.f64 lambda2))))))
(/.f64 (neg.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (.f64 lambda2 (.f64 lambda2 lambda2)))) (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (.f64 (+.f64 lambda1 lambda2) (.f64 lambda2 lambda2))) (*.f64 (+.f64 lambda1 lambda2) (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (neg.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)))) (neg.f64 (neg.f64 (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))) (neg.f64 (neg.f64 (+.f64 lambda1 lambda2))))
(/.f64 (fma.f64 (neg.f64 lambda2) (.f64 lambda2 lambda2) (.f64 lambda1 (.f64 lambda1 lambda1))) (fma.f64 lambda2 lambda2 (-.f64 (.f64 lambda1 lambda1) (*.f64 (neg.f64 lambda2) lambda1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (fma.f64 (/.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (.f64 (/.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (*.f64 lambda2 (+.f64 lambda1 lambda2))))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (fma.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)) (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)) (.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda1 lambda2))))))
(/.f64 (-.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda1)) (-.f64 (neg.f64 lambda2) lambda1))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))))) (.f64 (/.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))) (+.f64 (/.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))) (/.f64 (.f64 lambda2 (.f64 lambda2 lambda2)) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))))))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 lambda2))) (.f64 (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)) (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)))) (+.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda1 lambda2))))
(pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2)))))
(.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda1 (-.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 (neg.f64 lambda2))))))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 lambda2)))
(.f64 (neg.f64 (.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 lambda1 lambda1 (.f64 lambda2 (+.f64 lambda1 lambda2))))))
(.f64 (neg.f64 (.f64 (+.f64 lambda1 lambda2) (-.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (neg.f64 (+.f64 lambda1 lambda2))))
#s(approx (* 1/2 (+ phi1 phi2)) (*.f64 phi2 #s(literal 1/2 binary64)))
(+.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi1))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi2 phi1))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (*.f64 (+.f64 phi2 phi1) #s(literal -1/2 binary64)))
(-.f64 (/.f64 (/.f64 (.f64 phi1 phi1) (-.f64 phi1 phi2)) #s(literal 2 binary64)) (/.f64 (/.f64 (.f64 phi2 phi2) (-.f64 phi1 phi2)) #s(literal 2 binary64)))
(-.f64 (/.f64 (.f64 phi1 phi1) (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (/.f64 (.f64 phi2 phi2) (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(-.f64 (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64)))) (/.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 phi2 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))
(fma.f64 #s(literal 1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 phi2 #s(literal 1/2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))
(neg.f64 (*.f64 (+.f64 phi2 phi1) #s(literal -1/2 binary64)))
(/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))
(/.f64 (+.f64 phi2 phi1) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 phi2) phi1) #s(literal -2 binary64))
(/.f64 (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2))) (.f64 #s(literal 2 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 2 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1))) (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (*.f64 phi2 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64))))) (fma.f64 (.f64 phi1 (.f64 phi1 phi1)) #s(literal 1/8 binary64) (.f64 (.f64 phi2 (*.f64 phi2 phi2)) #s(literal 1/8 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1)) (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (*.f64 phi2 phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1)) (.f64 (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (*.f64 phi2 phi2))) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 phi1 phi2) (.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi2 phi1))))
(/.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(/.f64 (neg.f64 (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2)))) (neg.f64 (.f64 #s(literal 2 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (neg.f64 (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(/.f64 (fma.f64 (.f64 phi1 (.f64 phi1 phi1)) #s(literal 1/8 binary64) (.f64 (.f64 phi2 (.f64 phi2 phi2)) #s(literal 1/8 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64))))
(/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2)))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (-.f64 phi1 phi2))
(/.f64 (.f64 (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2))) #s(literal 1/2 binary64)) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 phi1 phi2))
(/.f64 (neg.f64 (fma.f64 (.f64 phi1 (.f64 phi1 phi1)) #s(literal 1/8 binary64) (.f64 (.f64 phi2 (.f64 phi2 phi2)) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2))))) (neg.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (neg.f64 (-.f64 phi1 phi2)))
(/.f64 (neg.f64 (.f64 (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2))) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (neg.f64 (-.f64 phi1 phi2)))
(/.f64 (fma.f64 (.f64 phi2 (.f64 phi2 phi2)) #s(literal 1/8 binary64) (.f64 (.f64 phi1 (.f64 phi1 phi1)) #s(literal 1/8 binary64))) (fma.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi1)))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))
(*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))
(.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)) (/.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(*.f64 (-.f64 (neg.f64 phi2) phi1) #s(literal -1/2 binary64))
(.f64 (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2))) (/.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1)))))
(.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(.f64 #s(literal -1 binary64) (.f64 (+.f64 phi2 phi1) #s(literal -1/2 binary64)))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))))
(.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(.f64 (fma.f64 (.f64 phi1 (.f64 phi1 phi1)) #s(literal 1/8 binary64) (.f64 (.f64 phi2 (.f64 phi2 phi2)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64)))))))
(.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64)))))
(.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2)))) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1))))
(.f64 (.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
(.f64 (.f64 (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2))) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1))))
(.f64 (.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
(.f64 (/.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1)) (-.f64 phi1 phi2))) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
(.f64 (/.f64 (fma.f64 phi2 (-.f64 phi2 phi1) (.f64 phi1 phi1)) #s(literal 2 binary64)) (/.f64 (+.f64 phi2 phi1) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1)) (-.f64 phi1 phi2))) (/.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1))))
(.f64 (/.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2))))) (/.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(.f64 (/.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1 binary64)) (/.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(.f64 (/.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 phi1 (.f64 phi1 phi1) (.f64 phi2 (.f64 phi2 phi2))))) (/.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 phi1))))
(.f64 phi2 (.f64 lambda2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(.f64 lambda2 (.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (.f64 phi2 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 lambda2))
(.f64 (.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(.f64 (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) lambda2) phi2)
(+.f64 #s(literal 0 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)))
(-.f64 #s(literal 0 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(neg.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2)) #s(literal 3 binary64)) (+.f64 #s(literal 0 binary64) (fma.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 #s(literal 0 binary64) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (neg.f64 (.f64 (.f64 lambda2 lambda2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))) (+.f64 #s(literal 0 binary64) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))
(.f64 (neg.f64 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) lambda2)
(.f64 (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1 binary64)) lambda2)

eval187.0ms (1.5%)

Memory: 10.9MiB live, 243.0MiB allocated
Compiler: Compiled 42 196 to 2 131 computations (94.9% saved)

prune149.0ms (1.2%)

Memory

11.0MiB live, 174.3MiB allocated

Pruning

40 alts after pruning (32 fresh and 8 done)

	Pruned	Kept	Total
New	1 217	8	1 225
Fresh	3	24	27
Picked	2	3	5
Done	0	5	5
Total	1 222	40	1 262

Accuracy

99.0%

Counts

1 262 → 40

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.9%	(.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R)
	41.0%	(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
	56.9%	(.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
✓	21.9%	(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
	17.6%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) phi2)))
	50.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))
	51.2%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
✓	71.9%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
✓	66.3%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
	40.9%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
	11.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 lambda2))))
	10.0%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda2))))
	7.8%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
	8.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
	12.4%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))))
✓	35.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
✓	10.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))))
	9.2%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
	4.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
	6.6%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))))
	21.2%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
	6.3%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
	58.1%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
	20.8%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
	21.5%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
	7.4%	(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
	34.2%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1)))
	21.9%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (-.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
✓	20.7%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
	21.5%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
	9.4%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
	7.4%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
	11.0%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
✓	2.1%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
	58.6%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
	10.0%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 #s(approx (- ( (cos (* 1/2 (+ phi1 phi2))) R) (/ (* (* R lambda1) (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2))) (neg.f64 lambda2)))
	57.7%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
	60.4%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
✓	32.9%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
	60.4%	#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))

Compiler

Compiled 1 823 to 718 computations (60.6% saved)

regimes186.0ms (1.5%)

Memory

-7.8MiB live, 184.3MiB allocated

Counts

65 → 2

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (sqrt.f64 (neg.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 #s(approx (- ( (cos (* 1/2 (+ phi1 phi2))) R) (/ (* (* R lambda1) (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2))) (neg.f64 lambda2)))
(.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 lambda2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 (fma.f64 (neg.f64 lambda1) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda1 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda2 lambda1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda2 (fma.f64 lambda1 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda2) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (/.f64 lambda1 lambda2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) lambda2)) (neg.f64 lambda2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) R (/.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda1))) (neg.f64 lambda1)))
(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) #s(approx (cos (/ (+ phi1 phi2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) phi2)))
(.f64 R (hypot.f64 (-.f64 phi1 phi2) (exp.f64 (log.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 (+.f64 phi1 phi2) #s(literal 1/2 binary64))))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (-.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 lambda2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 (fma.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi1 #s(literal -2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 phi1 phi1))))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))

Outputs

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2)))))

Calls

9 calls:

31.0ms	lambda2
20.0ms	(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
19.0ms	phi2
19.0ms	R
18.0ms	lambda1

Results

Accuracy	Segments	Branch
81.0%	3	`R`
75.4%	3	`lambda1`
77.9%	3	`lambda2`
93.1%	2	`phi1`
91.3%	2	`phi2`
78.2%	2	`(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))`
78.9%	2	`(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))`
78.9%	2	`(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))`
79.3%	2	`(-.f64 lambda1 lambda2)`

Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes34.0ms (0.3%)

Memory

-5.9MiB live, 36.0MiB allocated

Counts

47 → 2

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (sqrt.f64 (neg.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 #s(approx (- ( (cos (* 1/2 (+ phi1 phi2))) R) (/ (* (* R lambda1) (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2))) (neg.f64 lambda2)))
(.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))

Outputs

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (*.f64 (-.f64 lambda1 lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))

Calls

2 calls:

17.0ms	phi1
14.0ms	phi2

Results

Accuracy	Segments	Branch
89.4%	2	`phi2`
89.8%	2	`phi1`

Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes40.0ms (0.3%)

Memory

-10.8MiB live, 27.6MiB allocated

Counts

46 → 2

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (sqrt.f64 (neg.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 #s(approx (- ( (cos (* 1/2 (+ phi1 phi2))) R) (/ (* (* R lambda1) (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2))) (neg.f64 lambda2)))
(.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))

Outputs

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (hypot.f64 phi1 (*.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))

Calls

2 calls:

24.0ms	phi2
13.0ms	phi1

Results

Accuracy	Segments	Branch
85.7%	3	`phi2`
86.4%	2	`phi1`

Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes15.0ms (0.1%)

Memory

15.3MiB live, 15.3MiB allocated

Counts

44 → 3

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (sqrt.f64 (neg.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 #s(approx (- ( (cos (* 1/2 (+ phi1 phi2))) R) (/ (* (* R lambda1) (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2))) (neg.f64 lambda2)))
(.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))
(.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R)

Outputs

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))

(*.f64 (sqrt.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R)

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))

Calls

1 calls:

13.0ms

phi1

Results

Accuracy	Segments	Branch
87.2%	3	`phi1`

Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes15.0ms (0.1%)

Memory

15.9MiB live, 15.9MiB allocated

Counts

43 → 3

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (sqrt.f64 (neg.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 #s(approx (- ( (cos (* 1/2 (+ phi1 phi2))) R) (/ (* (* R lambda1) (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2))) (neg.f64 lambda2)))
(.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))

Outputs

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))

(*.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (*.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2))))))))

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))

Calls

1 calls:

12.0ms

phi1

Results

Accuracy	Segments	Branch
87.2%	3	`phi1`

Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes16.0ms (0.1%)

Memory

-20.9MiB live, 17.7MiB allocated

Counts

42 → 3

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (sqrt.f64 (neg.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 #s(approx (* 1/2 (+ phi1 phi2)) (*.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 lambda1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi2 phi2) (* (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (* (- lambda1 lambda2) (cos (* 1/2 phi2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 lambda1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 lambda2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 #s(approx (cos ( 1/2 (+ phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 (.f64 R lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 (.f64 lambda2 R)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) lambda1))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda1))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (neg.f64 lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 #s(approx (- ( (cos (* 1/2 (+ phi1 phi2))) R) (/ (* (* R lambda1) (cos (* 1/2 (+ phi1 phi2)))) lambda2)) (/.f64 (.f64 (.f64 R lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (neg.f64 lambda2))) (neg.f64 lambda2)))

Outputs

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))

Calls

1 calls:

13.0ms

phi1

Results

Accuracy	Segments	Branch
86.0%	3	`phi1`

Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes14.0ms (0.1%)

Memory

19.4MiB live, 19.4MiB allocated

Counts

20 → 2

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (sqrt.f64 (neg.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))

Outputs

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))

Calls

2 calls:

6.0ms	phi2
6.0ms	phi1

Results

Accuracy	Segments	Branch
83.4%	2	`phi2`
80.0%	3	`phi1`

Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes47.0ms (0.4%)

Memory

6.9MiB live, 45.5MiB allocated

Counts

19 → 3

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (sqrt.f64 (neg.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))

Outputs

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))

(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))

Calls

7 calls:

11.0ms	phi2
6.0ms	R
6.0ms	(-.f64 lambda1 lambda2)
6.0ms	phi1
6.0ms	(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))

Results

Accuracy	Segments	Branch
66.3%	3	`(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))`
78.3%	3	`phi1`
66.5%	3	`(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))`
66.5%	3	`(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))`
68.6%	2	`(-.f64 lambda1 lambda2)`
68.2%	3	`R`
71.8%	4	`phi2`

Compiler

Compiled 132 to 69 computations (47.7% saved)

regimes49.0ms (0.4%)

Memory

-86.3MiB live, 20.3MiB allocated

Counts

18 → 3

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 phi1 phi1) (fma.f64 (*.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1 binary64))) (-.f64 lambda1 lambda2)) lambda1) lambda2))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (/.f64 (.f64 (-.f64 (.f64 R R) (/.f64 (.f64 (.f64 R phi1) (.f64 R phi1)) (.f64 phi2 phi2))) (neg.f64 phi2)) (fma.f64 phi1 (/.f64 R phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (/.f64 (sqrt.f64 (neg.f64 (.f64 (fma.f64 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)) (.f64 (+.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (neg.f64 (.f64 (+.f64 phi1 #s(approx ( (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))) (-.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)))))))))

Outputs

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))

(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (*.f64 phi2 phi2)))) R)

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))

Calls

3 calls:

6.0ms	phi1
6.0ms	lambda1
6.0ms	lambda2

Results

Accuracy	Segments	Branch
62.1%	2	`lambda1`
63.8%	2	`lambda2`
72.5%	3	`phi1`

Compiler

Compiled 18 to 15 computations (16.7% saved)

regimes15.0ms (0.1%)

Memory

11.9MiB live, 11.9MiB allocated

Counts

13 → 3

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
(.f64 #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)

Outputs

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))

(*.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (*.f64 phi1 phi1)))) R)

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))

Calls

3 calls:

5.0ms	phi2
4.0ms	phi1
4.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
64.6%	2	`(-.f64 lambda1 lambda2)`
70.1%	3	`phi2`
69.7%	3	`phi1`

Compiler

Compiled 20 to 16 computations (20% saved)

regimes12.0ms (0.1%)

Memory

-28.3MiB live, 10.8MiB allocated

Counts

12 → 2

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (-.f64 R (.f64 R (/.f64 phi2 phi1)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi2) (-.f64 R (.f64 phi1 (/.f64 R phi2)))))

Outputs

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))))

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))

Calls

2 calls:

6.0ms	phi1
4.0ms	phi2

Results

Accuracy	Segments	Branch
66.7%	2	`phi1`
64.4%	2	`phi2`

Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes8.0ms (0.1%)

Memory

8.2MiB live, 8.2MiB allocated

Counts

9 → 2

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1)))))

Outputs

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (*.f64 phi1 (-.f64 R (/.f64 (*.f64 phi2 R) phi1)))))

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))

Calls

2 calls:

4.0ms	R
3.0ms	phi1

Results

Accuracy	Segments	Branch
65.2%	2	`R`
65.9%	2	`phi1`

Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes13.0ms (0.1%)

Memory

14.2MiB live, 14.2MiB allocated

Counts

8 → 2

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2)))))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))

Outputs

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (-.f64 R (*.f64 phi1 (/.f64 R phi2)))))

Calls

4 calls:

3.0ms	R
3.0ms	phi1
3.0ms	(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
3.0ms	(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))

Results

Accuracy	Segments	Branch
60.4%	1	`(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))`
60.4%	1	`(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))`
60.4%	1	`R`
64.8%	2	`phi1`

Compiler

Compiled 81 to 41 computations (49.4% saved)

regimes24.0ms (0.2%)

Memory

-12.3MiB live, 26.8MiB allocated

Counts

5 → 2

Calls

Call 1

Inputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))
(.f64 R (sqrt.f64 #s(approx (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))) (*.f64 phi2 phi2))))
(.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 phi2 phi1)) (neg.f64 lambda2))))))

Outputs

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1)))

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))

Calls

9 calls:

4.0ms	lambda2
2.0ms	(-.f64 lambda1 lambda2)
2.0ms	lambda1
2.0ms	phi2
2.0ms	R

Results

Accuracy	Segments	Branch
39.5%	2	`R`
37.0%	2	`(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))`
37.0%	2	`(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))`
37.7%	2	`lambda1`
41.3%	4	`lambda2`
58.2%	2	`phi2`
39.0%	2	`(-.f64 lambda1 lambda2)`
37.5%	2	`(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))`
58.6%	2	`phi1`

Compiler

Compiled 144 to 79 computations (45.1% saved)

regimes14.0ms (0.1%)

Memory

20.3MiB live, 20.3MiB allocated

Accuracy

Total -19.4b remaining (-45.2%)

Threshold costs -19.4b (-45.2%)

Counts

2 → 1

Calls

Call 1

Inputs

#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))

(*.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (* (cos (* 1/2 (+ phi1 phi2))) (neg lambda2)) #s(approx (+ (* 1/2 (* (* lambda2 phi2) (sin (* 1/2 phi1)))) (* (cos (* 1/2 phi1)) (neg lambda2))) (neg.f64 lambda2)))))

Outputs
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))

Calls

9 calls:

2.0ms	(-.f64 lambda1 lambda2)
2.0ms	phi2
1.0ms	lambda1
1.0ms	(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))
1.0ms	phi1

Results

Accuracy	Segments	Branch
32.9%	1	`(sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))`
32.9%	1	`(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))`
32.9%	1	`(.f64 R (sqrt.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64)))) (.f64 (-.f64 lambda1 lambda2) (cos.f64 (/.f64 (+.f64 phi1 phi2) #s(literal 2 binary64))))) (*.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))))`
32.9%	1	`lambda1`
32.9%	1	`lambda2`
32.9%	1	`(-.f64 lambda1 lambda2)`
32.9%	1	`R`
32.9%	1	`phi2`
32.9%	1	`phi1`

Compiler

Compiled 144 to 79 computations (45.1% saved)

bsearch18.0ms (0.1%)

Memory

-22.3MiB live, 16.8MiB allocated

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
16.0ms	-4397869134904345.5	-1177269189330997.3

Samples

7.0ms	28×	1	valid
6.0ms	52×	0	valid

Compiler

Compiled 230 to 152 computations (33.9% saved)

Precisions

Click to see histograms. Total time spent on operations: 10.0ms

ival-hypot: 3.0ms (30% of total)

ival-cos: 3.0ms (30% of total)

ival-add: 1.0ms (10% of total)

ival-div: 1.0ms (10% of total)

adjust: 1.0ms (10% of total)

ival-sub: 1.0ms (10% of total)

ival-mult: 1.0ms (10% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

1.0MiB live, 1.0MiB allocated

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
0.0ms	-4397869134904345.5	-1177269189330997.3

Compiler

Compiled 210 to 132 computations (37.1% saved)

bsearch13.0ms (0.1%)

Memory

13.1MiB live, 13.1MiB allocated

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
11.0ms	-4397869134904345.5	-1177269189330997.3

Samples

5.0ms	45×	0	valid
4.0ms	19×	1	valid

Compiler

Compiled 205 to 127 computations (38% saved)

Precisions

Click to see histograms. Total time spent on operations: 7.0ms

ival-cos: 2.0ms (30% of total)

adjust: 1.0ms (15% of total)

ival-div: 1.0ms (15% of total)

ival-hypot: 1.0ms (15% of total)

ival-sub: 1.0ms (15% of total)

ival-mult: 1.0ms (15% of total)

ival-assert: 0.0ms (0% of total)

ival-add: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch34.0ms (0.3%)

Memory

-11.3MiB live, 28.0MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
9.0ms	-4397869134904345.5	-1177269189330997.3
22.0ms	-4.111536052659361e+120	-1.4305743707343241e+118

Samples

13.0ms	56×	1	valid
11.0ms	120×	0	valid

Compiler

Compiled 667 to 389 computations (41.7% saved)

Precisions

Click to see histograms. Total time spent on operations: 18.0ms

ival-cos: 5.0ms (28.1% of total)

ival-hypot: 4.0ms (22.5% of total)

ival-mult: 3.0ms (16.9% of total)

ival-div: 2.0ms (11.2% of total)

ival-sub: 2.0ms (11.2% of total)

ival-add: 1.0ms (5.6% of total)

adjust: 1.0ms (5.6% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch2.0ms (0%)

Memory

1.8MiB live, 1.8MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-4397869134904345.5	-1177269189330997.3
1.0ms	-4.111536052659361e+120	-1.4305743707343241e+118

Compiler

Compiled 667 to 389 computations (41.7% saved)

bsearch26.0ms (0.2%)

Memory

9.1MiB live, 47.6MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
6.0ms	-4397869134904345.5	-1177269189330997.3
18.0ms	-4.111536052659361e+120	-1.4305743707343241e+118

Samples

11.0ms	109×	0	valid
7.0ms	35×	1	valid

Compiler

Compiled 446 to 272 computations (39% saved)

Precisions

Click to see histograms. Total time spent on operations: 12.0ms

ival-hypot: 3.0ms (24.8% of total)

ival-sub: 2.0ms (16.5% of total)

ival-cos: 2.0ms (16.5% of total)

ival-mult: 2.0ms (16.5% of total)

ival-add: 1.0ms (8.3% of total)

ival-div: 1.0ms (8.3% of total)

adjust: 1.0ms (8.3% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch36.0ms (0.3%)

Memory

-6.3MiB live, 30.8MiB allocated

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
33.0ms	5.172467781652369e+46	4.527861211022649e+54

Samples

16.0ms	83×	0	valid
12.0ms	61×	1	valid

Compiler

Compiled 319 to 193 computations (39.5% saved)

Precisions

Click to see histograms. Total time spent on operations: 23.0ms

ival-mult: 11.0ms (48.3% of total)

ival-hypot: 3.0ms (13.2% of total)

ival-cos: 3.0ms (13.2% of total)

adjust: 2.0ms (8.8% of total)

ival-add: 1.0ms (4.4% of total)

ival-div: 1.0ms (4.4% of total)

ival-sub: 1.0ms (4.4% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch20.0ms (0.2%)

Memory

24.4MiB live, 24.4MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
17.0ms	-4.04397948046352e-85	-7.810994150582261e-90
1.0ms	-4.111536052659361e+120	-1.4305743707343241e+118

Samples

10.0ms	115×	0	valid
3.0ms	13×	1	valid

Compiler

Compiled 648 to 358 computations (44.8% saved)

Precisions

Click to see histograms. Total time spent on operations: 9.0ms

ival-mult: 2.0ms (23.4% of total)

ival-hypot: 2.0ms (23.4% of total)

ival-div: 1.0ms (11.7% of total)

ival-add: 1.0ms (11.7% of total)

ival-sub: 1.0ms (11.7% of total)

ival-cos: 1.0ms (11.7% of total)

adjust: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch43.0ms (0.4%)

Memory

-5.8MiB live, 31.6MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
15.0ms	1.822365330918275e-204	1.6504467455409676e-202
25.0ms	-363807289759402700.0	-4397869134904345.5

Samples

16.0ms	178×	0	valid
10.0ms	46×	1	valid

Compiler

Compiled 579 to 323 computations (44.2% saved)

Precisions

Click to see histograms. Total time spent on operations: 19.0ms

ival-hypot: 4.0ms (21.4% of total)

ival-cos: 4.0ms (21.4% of total)

ival-mult: 3.0ms (16.1% of total)

ival-div: 2.0ms (10.7% of total)

ival-sub: 2.0ms (10.7% of total)

ival-add: 1.0ms (5.4% of total)

adjust: 1.0ms (5.4% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch28.0ms (0.2%)

Memory

-22.0MiB live, 21.4MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
19.0ms	7.076952947341576e-47	1.0202126610490882e-45
7.0ms	-2.2807415691702783e-167	-1.757150318376016e-167

Samples

15.0ms	117×	0	valid
5.0ms	27×	1	valid

Compiler

Compiled 385 to 214 computations (44.4% saved)

Precisions

Click to see histograms. Total time spent on operations: 11.0ms

ival-mult: 2.0ms (18.4% of total)

ival-hypot: 2.0ms (18.4% of total)

ival-cos: 2.0ms (18.4% of total)

ival-add: 1.0ms (9.2% of total)

adjust: 1.0ms (9.2% of total)

ival-div: 1.0ms (9.2% of total)

ival-sub: 1.0ms (9.2% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

1.0MiB live, 1.0MiB allocated

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
0.0ms	-4397869134904345.5	-1177269189330997.3

Compiler

Compiled 205 to 127 computations (38% saved)

bsearch24.0ms (0.2%)

Memory

29.9MiB live, 29.9MiB allocated

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
22.0ms	-1758662.1138231568	-1.1199169894691731e-7

Samples

12.0ms	140×	0	valid
4.0ms	20×	1	valid

Compiler

Compiled 370 to 232 computations (37.3% saved)

Precisions

Click to see histograms. Total time spent on operations: 11.0ms

ival-hypot: 3.0ms (26.3% of total)

ival-mult: 2.0ms (17.5% of total)

ival-sub: 2.0ms (17.5% of total)

ival-cos: 2.0ms (17.5% of total)

ival-add: 1.0ms (8.8% of total)

adjust: 1.0ms (8.8% of total)

ival-div: 1.0ms (8.8% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch17.0ms (0.1%)

Memory

-20.4MiB live, 17.7MiB allocated

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
16.0ms	-3.756574881810814e+121	-4.111536052659361e+120

Samples

6.0ms	74×	0	valid
4.0ms	22×	1	valid

Compiler

Compiled 202 to 130 computations (35.6% saved)

Precisions

Click to see histograms. Total time spent on operations: 8.0ms

ival-hypot: 2.0ms (26.2% of total)

ival-add: 1.0ms (13.1% of total)

adjust: 1.0ms (13.1% of total)

ival-div: 1.0ms (13.1% of total)

ival-mult: 1.0ms (13.1% of total)

ival-sub: 1.0ms (13.1% of total)

ival-cos: 1.0ms (13.1% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

0.6MiB live, 0.6MiB allocated

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
0.0ms	-4397869134904345.5	-1177269189330997.3

Compiler

Compiled 145 to 97 computations (33.1% saved)

simplify133.0ms (1.1%)

Memory

17.5MiB live, 55.0MiB allocated

Algorithm

1×	egg-herbie

Rules

690×	`distribute-lft-neg-in_binary64`
374×	`unsub-neg_binary64`
360×	`neg-mul-1_binary64`
342×	`cancel-sign-sub_binary64`
314×	`neg-sub0_binary64`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	161	1626
1	219	1626
2	263	1626
3	304	1625
4	351	1625
5	433	1625
6	663	1625
7	943	1625
8	1181	1625
9	1400	1625
10	1598	1625
11	1684	1625
12	1709	1625
13	1721	1625
14	1733	1625
15	1749	1625
16	1766	1625
17	1792	1625
18	1824	1625
19	1855	1625
20	1890	1625
21	1929	1625
22	1959	1625
23	1979	1625
24	1992	1625
25	1997	1625
26	1998	1625

Stop Event

1×

saturated

Calls

Call 1

Inputs
(if (<=.f64 phi1 #s(literal -1200000000000000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi1 #s(literal -1200000000000000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi1 #s(literal -3800000000000000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi1 #s(literal -1100000000000000064010013281761302985241469286014969649878700236824391796249753075020876231741171986355949424328897986560 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) (if (<=.f64 phi1 #s(literal -2500000000000000 binary64)) (.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi1 #s(literal -1100000000000000064010013281761302985241469286014969649878700236824391796249753075020876231741171986355949424328897986560 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) (if (<=.f64 phi1 #s(literal -2500000000000000 binary64)) (.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi1 #s(literal -14500000000000000803045725219984371886229508214407431237098403172055173043292397789569879942403431722312469806669889536 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) (if (<=.f64 phi1 #s(literal -4000000000000000 binary64)) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi2 #s(literal 679999999999999964911462538966468844519948288000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R))))
(if (<=.f64 phi1 #s(literal -14500000000000000803045725219984371886229508214407431237098403172055173043292397789569879942403431722312469806669889536 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) (if (<=.f64 phi1 #s(literal -7139186365691751/69992023193056381579920071267763883691301421788582797965624659405118495974380029543152421664737722368 binary64)) (.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) R) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))))
(if (<=.f64 phi1 #s(literal -4500000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) (if (<=.f64 phi1 #s(literal 441252181048159/2757826131550993649364364103715456897804056554542556176448634698108099443712107910064330000971904293916892446775667965408323532095584366159791555750475533307061324308088589961496711008293655788792731796366049346060288 binary64)) (.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) R) #s(approx ( R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))))
(if (<=.f64 phi2 #s(literal -2987651209594315/132784498204191774672397051638117156832398279431757980799861034550100889965213060684790625566307321417222332371561625253836644834413176809852379994691646837985957817708848304757932032 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) (if (<=.f64 phi2 #s(literal 5142201741628769/12855504354071922204335696738729300820177623950262342682411008 binary64)) (.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) R) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))))
(if (<=.f64 phi1 #s(literal -4000000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) #s(approx ( R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2))))))
(if (<=.f64 phi1 #s(literal -6788401819125115/73786976294838206464 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2))))))
(if (<=.f64 phi1 #s(literal -37000000000000001266939617844898016381214075526515388369974353059984562611605097305754725669833927332192948753059826106368 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2))))))
(if (<=.f64 phi1 #s(literal -3800000000000000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))

Outputs
(if (<=.f64 phi1 #s(literal -1200000000000000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi1 #s(literal -1200000000000000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))))))))
(if (<=.f64 phi1 #s(literal -1200000000000000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi1 #s(literal -1200000000000000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 (.f64 (-.f64 lambda1 lambda2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi1 #s(literal -3800000000000000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi1 #s(literal -3800000000000000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) #s(approx (sqrt (+ (* phi1 phi1) (* (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (* (- lambda1 lambda2) (cos (* 1/2 phi1)))))) (hypot.f64 phi1 (.f64 lambda2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2))))))
(if (<=.f64 phi1 #s(literal -1100000000000000064010013281761302985241469286014969649878700236824391796249753075020876231741171986355949424328897986560 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) (if (<=.f64 phi1 #s(literal -2500000000000000 binary64)) (.f64 (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))) R) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi1 #s(literal -1100000000000000064010013281761302985241469286014969649878700236824391796249753075020876231741171986355949424328897986560 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))) (if (<=.f64 phi1 #s(literal -2500000000000000 binary64)) (.f64 R (sqrt.f64 (fma.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))) (.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2))))) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi1 #s(literal -1100000000000000064010013281761302985241469286014969649878700236824391796249753075020876231741171986355949424328897986560 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) (if (<=.f64 phi1 #s(literal -2500000000000000 binary64)) (.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi1 #s(literal -1100000000000000064010013281761302985241469286014969649878700236824391796249753075020876231741171986355949424328897986560 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))) (if (<=.f64 phi1 #s(literal -2500000000000000 binary64)) (.f64 R (sqrt.f64 (fma.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2) (.f64 (.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 phi2)))))))) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi1 #s(literal -14500000000000000803045725219984371886229508214407431237098403172055173043292397789569879942403431722312469806669889536 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) (if (<=.f64 phi1 #s(literal -4000000000000000 binary64)) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi1 #s(literal -14500000000000000803045725219984371886229508214407431237098403172055173043292397789569879942403431722312469806669889536 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))) (if (<=.f64 phi1 #s(literal -4000000000000000 binary64)) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)))))))
(if (<=.f64 phi2 #s(literal 679999999999999964911462538966468844519948288000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R))))
(if (<=.f64 phi2 #s(literal 679999999999999964911462538966468844519948288000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi1 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 phi1 (neg.f64 phi2)) R))))
(if (<=.f64 phi1 #s(literal -14500000000000000803045725219984371886229508214407431237098403172055173043292397789569879942403431722312469806669889536 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) (if (<=.f64 phi1 #s(literal -7139186365691751/69992023193056381579920071267763883691301421788582797965624659405118495974380029543152421664737722368 binary64)) (.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) R) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))))
(if (<=.f64 phi1 #s(literal -14500000000000000803045725219984371886229508214407431237098403172055173043292397789569879942403431722312469806669889536 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))) (if (<=.f64 phi1 #s(literal -7139186365691751/69992023193056381579920071267763883691301421788582797965624659405118495974380029543152421664737722368 binary64)) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))))) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (hypot.f64 phi2 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) #s(approx (- lambda1 lambda2) (neg.f64 lambda2))))))))
(if (<=.f64 phi1 #s(literal -4500000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) (if (<=.f64 phi1 #s(literal 441252181048159/2757826131550993649364364103715456897804056554542556176448634698108099443712107910064330000971904293916892446775667965408323532095584366159791555750475533307061324308088589961496711008293655788792731796366049346060288 binary64)) (.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2)))) R) #s(approx ( R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 (neg.f64 phi1) phi2) R)))))
(if (<=.f64 phi1 #s(literal -4500000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))) (if (<=.f64 phi1 #s(literal 441252181048159/2757826131550993649364364103715456897804056554542556176448634698108099443712107910064330000971904293916892446775667965408323532095584366159791555750475533307061324308088589961496711008293655788792731796366049346060288 binary64)) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi2))) (-.f64 lambda1 lambda2)) (.f64 phi2 phi2))))) #s(approx ( R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 (fma.f64 R (/.f64 phi1 (neg.f64 phi2)) R)))))
(if (<=.f64 phi2 #s(literal -2987651209594315/132784498204191774672397051638117156832398279431757980799861034550100889965213060684790625566307321417222332371561625253836644834413176809852379994691646837985957817708848304757932032 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) (if (<=.f64 phi2 #s(literal 5142201741628769/12855504354071922204335696738729300820177623950262342682411008 binary64)) (.f64 #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1)))) R) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))))
(if (<=.f64 phi2 #s(literal -2987651209594315/132784498204191774672397051638117156832398279431757980799861034550100889965213060684790625566307321417222332371561625253836644834413176809852379994691646837985957817708848304757932032 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))) (if (<=.f64 phi2 #s(literal 5142201741628769/12855504354071922204335696738729300820177623950262342682411008 binary64)) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (sqrt.f64 (fma.f64 #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) #s(approx (* (- lambda1 lambda2) (cos (* 1/2 phi1))) (-.f64 lambda1 lambda2)) (.f64 phi1 phi1))))) (.f64 R #s(approx (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (fma.f64 phi2 (/.f64 phi1 (neg.f64 phi2)) phi2)))))
(if (<=.f64 phi1 #s(literal -4000000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R)))) #s(approx ( R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2))))))
(if (<=.f64 phi1 #s(literal -4000000000000000 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 (neg.f64 phi1) (fma.f64 R (/.f64 phi2 (neg.f64 phi1)) R))) #s(approx ( R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2))))))
(if (<=.f64 phi1 #s(literal -6788401819125115/73786976294838206464 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (neg.f64 (.f64 phi1 (-.f64 R (/.f64 (.f64 phi2 R) phi1))))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2))))))
(if (<=.f64 phi1 #s(literal -6788401819125115/73786976294838206464 binary64)) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi1 (-.f64 (/.f64 (.f64 R phi2) phi1) R))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2))))))
(if (<=.f64 phi1 #s(literal -37000000000000001266939617844898016381214075526515388369974353059984562611605097305754725669833927332192948753059826106368 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (.f64 phi2 (-.f64 R (.f64 phi1 (/.f64 R phi2))))))
(if (<=.f64 phi1 #s(literal -3800000000000000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R)))
(if (<=.f64 phi1 #s(literal -3800000000000000 binary64)) (.f64 R #s(approx (sqrt (+ ( (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2)))) (neg.f64 phi1))) #s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2)))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 phi2 R))
#s(approx (* R (sqrt (+ (* (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2))) (* (- lambda1 lambda2) (cos (/ (+ phi1 phi2) 2)))) (* (- phi1 phi2) (- phi1 phi2))))) (*.f64 R phi2))

soundness1.5s (12.7%)

Memory

29.3MiB live, 1 229.7MiB allocated

Rules

10 254×	`lower-fma.f64`
10 254×	`lower-fma.f32`
10 154×	`lower-fma.f64`
10 154×	`lower-fma.f32`
9 824×	`lower-fma.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1232	29384
1	4121	28728
0	8489	26695
0	884	10001
1	2974	9253
2	7796	9253
0	8068	8635
0	1274	31281
1	4236	30572
0	8730	28284
0	57	554
0	84	455
1	218	455
2	1258	455
0	8412	425
0	1270	31707
1	4260	31093
0	8387	28793
0	53	488
0	86	390
1	281	380
2	2020	380
0	8546	340
0	17	128
0	28	86
1	97	86
2	720	86
0	8872	76

Stop Event

1×	fuel
1×	iter limit
1×	node limit
1×	iter limit
1×	iter limit
1×	node limit
1×	iter limit
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit
1×	iter limit
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit

Compiler

Compiled 1 509 to 778 computations (48.4% saved)

preprocess207.0ms (1.7%)

Memory

-17.1MiB live, 306.7MiB allocated

Remove

(sort lambda1 lambda2)

(negabs R)

Compiler

Compiled 1 580 to 586 computations (62.9% saved)

end0.0ms (0%)

Memory: 0.0MiB live, 0.0MiB allocated

start0.0ms (0%)

analyze0.0ms (0%)

sample1.5s (12.3%)

explain280.0ms (2.3%)

preprocess434.0ms (3.6%)

eval0.0ms (0%)

prune1.0ms (0%)

simplify398.0ms (3.3%)

localize118.0ms (1%)

series52.0ms (0.4%)

simplify435.0ms (3.6%)

rewrite403.0ms (3.3%)

eval180.0ms (1.5%)

prune152.0ms (1.3%)

simplify176.0ms (1.5%)

localize222.0ms (1.8%)

series85.0ms (0.7%)

simplify431.0ms (3.6%)

rewrite282.0ms (2.3%)

eval175.0ms (1.5%)

prune174.0ms (1.4%)

simplify207.0ms (1.7%)

localize282.0ms (2.3%)

series110.0ms (0.9%)

simplify542.0ms (4.5%)

rewrite317.0ms (2.6%)

eval523.0ms (4.3%)

prune198.0ms (1.6%)

simplify335.0ms (2.8%)

localize270.0ms (2.2%)

series64.0ms (0.5%)

simplify453.0ms (3.8%)

rewrite295.0ms (2.5%)

eval187.0ms (1.5%)

prune149.0ms (1.2%)

regimes186.0ms (1.5%)

regimes34.0ms (0.3%)

regimes40.0ms (0.3%)

regimes15.0ms (0.1%)

regimes15.0ms (0.1%)

regimes16.0ms (0.1%)

regimes14.0ms (0.1%)

regimes47.0ms (0.4%)

regimes49.0ms (0.4%)

regimes15.0ms (0.1%)

regimes12.0ms (0.1%)

regimes8.0ms (0.1%)

regimes13.0ms (0.1%)

regimes24.0ms (0.2%)

regimes14.0ms (0.1%)

bsearch18.0ms (0.1%)

bsearch1.0ms (0%)

bsearch13.0ms (0.1%)

bsearch34.0ms (0.3%)

bsearch2.0ms (0%)

bsearch26.0ms (0.2%)

bsearch36.0ms (0.3%)

bsearch20.0ms (0.2%)

bsearch43.0ms (0.4%)

bsearch28.0ms (0.2%)

bsearch1.0ms (0%)

bsearch24.0ms (0.2%)

bsearch17.0ms (0.1%)

bsearch1.0ms (0%)

simplify133.0ms (1.1%)

soundness1.5s (12.7%)

preprocess207.0ms (1.7%)

end0.0ms (0%)

Profiling